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LECTURER'S  PREAMBLE 


The  Ada  language  brings  together  30  years  of  computer  science  in  a  sur¬ 
prisingly  well  integrated  and  coherent  package.  There  exist  ways  to  use 
Ada  which  are  relatively  easy  to  learn  and  which  give  you  all  the  power  to 
conventional  languages  like  FORTRAN.  This  course  starts  from  that  direction, 
30  that  you  are  writing  Ada  programs  as  quickly  as  possible.  Then  we  start 
the  process  of  exploring  the  broader  capabilities  of  Ada.  You  will  most 
fully  appreciate  Ada  when  you  apply  it  to  large  programs. 


Bill  Carlson 
October  1983 


AN  INTRODUCTION  TO  Ada  FOR  SCIENTISTS  AND  ENGINEERS 


This  course  has  been  designed  as  a  practical  introduction  to  Ada  program¬ 
ming  and  software  design  for  practicing  engineers,  mathematicians,  operations 
research  analysts,  statisticians  and  other  professionals.  The  objective  is 
to  communicate  the  essence  of  Ada  so  that  students  leave  confident  that  they 
can  use  Ada  effectively.  Specific  concepts  to  be  taught  are  the  following: 

0  There  is  a  way  to  do  everything  in  Ada  that  you  can  do  in  FORTRAN. 

0  Ada  satisfies  the  requirements  which  originally  caused  the  DoD 
to  develop  a  common  language. 

0  Ada  programs  are  structured  as  one  or  more  packages. 

0  The  Ada  compiler  can  help  you  write  correct  programs  if  you  tell  it 
the  "type"  of  each  piece  of  data,  and  Ada  provides  a  variety  of 
tools  for  defining  new  data  types,  operations  on  those  data  types, 
and  controlling  the  internal  representation  of  data  types. 

0  Generics  are  used  when  the  same  or  similar  operations  are  required 
for  several  different  data  types. 

0  Tasks  and  exception  handling  allow  asynchronous  events  to  be  created 
and/or  modeled. 

0  Separate  compilation  is  essential  for  the  construction  of  large 
systems,  and  is  provided  by  Ada. 

An  important  goal  is  to  become  comfortable  with  the  mechanical  aspects  of 
writing  an  Ada  program.  This  course  explains  how  to  write  Ada  statements, 
use  Ada's  control  structures,  do  input/output,  and  use  the  Ada  development 
system. 

The  development  system  is  a  Data  General  Eclipse  with  the  Rolm  Ada  compiler. 
That  compiler  has  been  validated  by  the  Ada  Joint  Program  Office.  The 
course  will  introduce  the  general  concept  of  an  Ada  Program  Support  Environ¬ 
ment  (APSE)  and  distinguish  between  concepts  which  are  unique  to  the  partic¬ 
ular  Data  General  implementation  and  those  which  should  be  true  of  all  Ada 
imp! ementations . 


ACQUIRING  VIDEO  TAPES 


Title  of  Tape:  "Ada ^Programming  Language" 

1.  DoD  organizations  can  obtain  free  copies  of  tapes  and  text  by  writing 
to : 


Commander 

Tobyhanna  Army  Depot 
DAVA 

ATTN :  DAVA-TLW 
Warehouse  #3,  Bay  #3 
Tobyhanna,  PA  18466 

Tapes  will  be  in  standard  DoD  3/4  inch  video  cassette;  however,  1/2  inch  VHS 
and  Beta  formats  are  also  available  on  request. 

2.  Non-DoD  organizations  and  the  general  public  can  obtain  tapes  at  minimal 
cost,  in  any  of  the  formats  specified  above,  by  writing  to: 

National  Audio  Visual  Center 
GSA 

ATTN:  Order  Section 
Washington,  DC  20409 

3.  For  additional  information,  contact: 

Ada  Joint  Program  Office 
3D139  (400  A/N) 

The  Pentagon 
Washington,  DC  20301 
C202)  694-0209 


or: 


Director 

US  Army  Materiel  Systems  Analysis  Activity 
ATTN:  DRXSY-MP  CHerbert  E.  Cohen) 

Aberdeen  Proving  Ground,  MD  21005-5071 
(301)  278-6577/6597 
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READING  ASSIGNMENTS 


TAPE  =1 

" Programni ng  in  Ada"  by  J.  G.  P.  Barnes  (1982),  Addison  - 
'.-.esley  Publishers  Limited,  pages  1-62. 

^  3  c  -0 

Data  General,  "Ada  Work  Center",  pages  35-42  of  text  under 
Tape  =2. 

P"  ^3 

"Programming  in  Ada",  by  j.  G.  P.  Barnes,  Ciiapter  6. 
Military  Standaro,  ANSI/MIL-S"D-181 5A,  dtd  22  Jan  33, 

"Ada  Programming  Language',  pages  1-1  to  3-16. 

TA^E  -A 

Review  Chapter  t:  -  "Programming  in  Ada"  by  Barnes. 

Chapter  7  -  ’ P^^ogrammi ng  in  Ada"  by  Ba'^nes. 

Ci.jpter  iC  -  'Programming  in  Ada"  by  Barnes. 

Chapter  5  -  Military  Standard,  ATS  1 /MIL ■ 3"D-1 81 5A 

■APE  =5 

Review  Chapter  7  -  "Programming  in  Aoa"  by  Barnes. 

Chapters  3  i  9  -  "Programming  in  Ada"  by  Barnes 

■APE  ^6 

Chapter  11  -  "Programming  in  Ada"  by  Barnes 

Review  Chapters  4  &  6  -  "Programming  in  Ada"  by  Barnes 
Chapters  3  i  4  -  Military  Standard,  ANSI/MIL-STD-1 81 5A 

"APE  =7 

Review  Chapters  7,3,9,11  -  "Programming  in  Ada"  by  Barnes 
Chapters  6,7  -  Military  Standard,  ANSI/MIL-STD-1815A 

Read  Section  16.5  -  "Programming  in  Ada"  by  Barnes 

TAPE  =8 

Review  Chapters  7.6  -  "Programming  in  Ada"by  Barnes 

Chapter  3  -  Military  Standard,  ANSI/MIL-STD-1 81 5A 

TAPE  =9 

Sections  15.1  and  15.2  -  "Programming  in  Ada"  by  Barnes 
Military  Standard,  ANSI/MIL-STD-1 81 5A ,  Chapter  14 

■APE  ^10 

Chapter  12  -  'Programming  in  Ada"  by  Barnes 

Military  Standard,  ANSI/MIL-STD-1 81 5A ,  3.5.6  to  3.5.10 
4.5.7,  4.6  and  Annex  A 

TAPE  =11  i 
=  12 

Chapters  13,  11.3  to  11.5  -  "Programming  in  Ada"  by  Barnes 
Chapter  12  and  3.3  -  Military  Standard,  ANSI /MIL-STD-"' 31 5A 

■APE  =12 

Chapter  14  -  "Programming  in  Ada"  by  Barnes 

Military  Standard,  ANSI/MIL-STD-1 51 5A ,  Chaoter  5 

■APE  =1A 

Chapters  15  3  16  -  "Programming  in  Ada"  by  Barnes 

Chapter  13  -  Military  Standard,  ANSI/MIL-"S^D-1S1 5A 

■’DC  5 

No  reading  assignment. 

TAPE  n 

IflTRODUCTION/EETTlMG  STARTEE 


o  DEFINING  COMPONENTS 
o  GENERALIZING  COMPONENTS 
o  DESIGN  GUIDELINES 
o  SCOPE  AND  VISIBILITY 
o  RECORD  ABSTRACTION 
o  NLT<fERIC  ABSTRACTION 
o  DERIVED  TYPES 


pragTTtfl  MAIN: 

with  TEXT_IO;  use  TEXT_IO;  with  SORT;  use  SORT; 
nrocedure  Root?  is 
A ,  B ,  C :  FLOAT ; 

D;  Float; 
begin 


—COLLECT  PAR.\METFRS 
PUT  ("to  solve  AX**2VBX+C=0") ; 
NEW_LINE; 

PUT  ("A=");  GET  (A); 

PUT  ("3="');  GET  (3); 

PUT  ("C=");  GET  (C) ; 

NEV_LINE  (2); 

—COMPUTE  DISCRIMINANT 


praenia  MAIN’; 


with  TEXT_10;  ^  TEXT_in; 
with  SORT; 
procedure  ROOTS  is 

O 

— ax“  +  bx  +  c  =  0 
A,  3,  C:  FLOAT; 

D:  FLOAT;  — DrSCRIMIN’AXT 


EXAMPLE  <»2 

WRITE  A  PROGRAM  TO  COMPUTE 
THE  ROOTS  OF  A  QUADRATIC 
EQUATION 


praema  MAIN; 

with  TEXT_10;  use  TEXT_10; 
procedure  ADD  is 
A.B.C:  FLOAT; 
begin 

GET  (A);  GET  ('B) ;  GET  (C); 
PUT  ("SUM=");  PUT  lA+B+C) ; 


end  .-iDD ; 


pra^a  MAIN ; 

with  TEXT_IO;  ^  TEXT_TO; 
procedure  ADD 

A,B,C;  INTEGER; 
begin 

GET (A);  GET(B);  GET(C); 
PUT  (■"SUM=");  PUT  (A+B+C) 
end  ADD; 
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GETTING  STARTED 


Ada*  STANDARD 

REFERENCE  MAi'iL’AL  pub.  July  1980 
MIL- STD  1S15  Designated  Dec.  1980 
ANSI  Canvass  initiated  Apr.  1980 
ANSI  Recanvass  initiated  Oct.  1980 
ANSI  Recanvass  crmpleted  Sept.  1982 
ANSI/MIL  -  STD  1315  Ada  Jan  1983 


Ada  ®  LANGUAGE  SPECIFICATICN 


REQUEST  PDR  PROPOSAL  ^APR  77) 
17  LANGUAGE  PROPOSALS  RECIEVED 

PHASE  1  (AUG  77  -  EEB  78) 
SOFTECH  INTER^TRICS 

SRI  honey;^ell 


PHASE  2  (APR  78  -  APR  79) 
INTERMETTRICS  HCNE)A>3ELL 

PHASE  3  (MAY  79  -  JtXY  80) 


K0NEY1^^ELL 


Ada  * REQUIREMENTS 
0  STRONG  TYPING 
0  ENCAPSULATED  DEFINITION 
o  COMPOSITE  TYPES 
o  GENERIC  DEFINITIONS 
o  NUMERIC  PRECISION 
o  PARALLEL  PROCESSrNG 
0  EXCEPTION  HANDLING 

o  DECLARATION  OF 

MACHINE  DEPENDENCE 


ADA*  REQUIREl'lENTS  DEFINED  IN  A 
SERIES  OF  DRAFT  SPECIFICATIONS 

o  STRAIilMAN  (1975) 
o  VJOODMAN  (1975) 
o  TINMAN  (1976) 
o  IRONMAN  (1977) 

0  STEEXMAN  (1978) 


»»•< 


H-BEDDED  CC3yiPLTER  SYSTEMS 
SOFIWARE  CHARACTERISTICS 

o  LARGE 
o  La«G  LIVED 
o  CCNTINUDLS  CHANGE 


o  EMBEDDED  COMPUTER  SYSTEMS 

applicaticns  characteristics 

o  REATL  TIME  CCtETRAINTS 
o  AUTOMATIC  ERROR  RECOVERY 
o  CCNCURREOT  CCWTROL 
o  NON-STANDARD  INPUr-OUTPUT 


I 


ii 

o  GENERICS 
o  TASKING 

I  o  ACCESS  TYPES 

o  TASK  TYPES 

o  MACHINE  DEPENDENT  CODE 


ifl 


PUT  f"C=");  GET  (c); 
N’EW  LINE  (2)  ; 


—COMPUTE  DISCRIMINANT 
D:=B**2  -  A.O*A*C; 

—REAL  ROOTS? 

D  >  =  0 
Chen 

PUT  ("POSITIVE  ROOT  =") ; 

PUT  ((-B  +  SORT(D))  /  (2.0*A) 
NEW_LINE; 

PUT  ("NEGATIVE  ROOT  =") ; 

PUT  ((-B  -  SQRT(D)^  /  C2.0*A)) 
NEW_LINE; 
else 

PUT  ("IMAGINARY  ROOTS"); 
end  if; 


end  ROOTS ; 


PUT  ("POSITIVE  ROOT  =  ; 

PUT  ((-B  +  S0RT(D))/(?.0*A)) ; 
NEW_LINE; 

PUT  (’NEGATIVE  ROOT  =") ; 

PUT  ((-B  -  SORT(D))/(2.0*A))  ; 
NEW_LINE; 
else 

PUT  ("IMAGINARY  ROOTS"); 


MAIN  PROCEDURE  TEMPLATE 


pragma  MAIN;  — FOR  ADE 

with  COMPONENTS;  —LIBRARY 

use  COMPONENTS; 
procedure  NAME  Is 
^DECLARATIVE_PARTj 
begin 

^SEOUENCE_OF_STATEMENT^ 
end  NAME; 


BUILT-IN 

TYPES 

Variables 

Literals 

I:  INTEGER; 

2  or  3  or  789_123 

A:  FLOAT 3 

2.0  or  1.0E35 

S:  STRING  (1..5); 

"HELLO" 

TYPE  CONVERSION 
FOR  "CLOSELY  RELATED"  TYPES 
I:=  INTEGER  (A);  —WILL  ROUND 
A:=  FLOAT  (I) ; 

STRING : ="123_4 56"— CHARACTER  STRING 
I:=  TNT]7TTIL-i»i  WtCTTT  —ILLEGAL 


ASSIGNMENT  STATEMENT 


VARIABLE  :=>  EXPRESSION; 


16 


EXPRESSIONS 
o  OPER.\TOR  PRECEDENCE 

+  - 

*  /  mod  rem 

o  LEFT  TO  RIGHT 

o  e:iamples 

B**2  -  4.0*A*C 
(-B+S0RT(D))  /  2.0*A 
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package  TEXT_IO 

GET  (A)  ;  —ASSUMES  FLOAT_rO  (FLOATS 
PUT  (A) ; 

GET  (I);  —ASSUMES  rNTEGEK_TO  (INTEGER) 
PUT  (1); 

GET  (STRING);  — VARIABLE  LENGTH 
PUT  ("HELLO"); 


* 


OVERLOADING 


THE  SAME  IDENTIFIER  HAS  MORE 
THAN  ONE  MEANING  AT  A  GIVEN 
POINT  IN  PROGRAM  TEXT 


pragma  MAIN ; 

with  TEXT_rO;  TEXT^TO; 
procedure  ADD  Is 
A , B , C  :  FLOAT ; 
begin 

GET  (A) ;  GET  rs)  ;  GET  (0 : 
PUT  ("SUM  =>"'»;  PUT  (A+B+C) 
and  ADD; 


on 


lexical  elements 

(CHAPTER  2) 
IDENTIFIER  ::=  letter 
^[underline]  letter  or  di^l^ 
—USED  AS  NAMES  AND  RESERVED 
—WORDS 

DELIMITERS  :;= 

=  >  ..  **  ;=  /=  y=  <  =  <<  »  <> 

SEPARATOR  : ;=  SPACE  | 

FORMAT  EFFECTOR  I EOL 


'I 


COMPOUND  DELIMITERS 

r>  ARROW 

DOUBLE  DOT 
**  DOUBLE  STAR 
BECOMES 

/=  NOT  EOUAL 
>=  GT  OR  EO 

<=  LT  OR  EO 

«  LEFT  LABEL  BRACKET 
>>  RIGHT  LABEL  BRACKET 
<>  BOX 

» 
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if  STATEMENT 
TE_STATEMENT  ::= 

CONDITION  then 
SEQUENCE  OF  STATEMENTS 


[else 

SEQUENCE  OF  STATEMENTS] 


end  if; 


IF  STATEMENT 
(EXAMPLE) 

(COLD  ar^  SUNNY)  or  WARM 
and  Chen  STATE  =*  "VA” 
and  MONTH  in  WINTER 


Chen 
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prccessi.na  segments  ci  G-  Meqa- 
cytes  eacn  ;cr  e::;c;en!  mem.cry 
manaqement  These  processing  seg¬ 
ments  are  icenticai  to  the  r.ierac.r.ai 
ring  structure  tr.at  ;s  -sed  to  protect 
system  resources. 

These  systems  are  designed  tor 
.A/auaciiity,  Reliability,  and  Main¬ 
tainability.  The  System.  Control 
Processor  .SC?'  performs  self- 
diagncsttcs  on  i.nternai  subsystem.s, 
.maintains  a  log  ci  system  errors, 
and  identities  hardware  faults  to 
the  tieid-repiaceabie  unit  level  It 
lets  operators  inspect  .memory  ana 
step  t.hrcugn  programs,  :n  oraer  ‘c 
m.cnitor  octn  hara'x'are  ana  sett 
ware  certorm.ance.  In  acaition,  tne 
.m.ecnanicai  design  of  MV.  Fam.ny 
systems  tacilitates  accessibility  anc 
etticient  m.airitenance. 
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On-Line  Storage 

4.:gb 

5.6GB 

18.5G3 

'eating  Point  Unit 

opt 

ort 

std 

.Vlaximum  Main  .Memorv 

SMB 

12MB 

i6MB 

System  Cache 

M  A 

IcKB 

16KB 

instruction  Cache 

MA 

5TC 

std 
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DEPLOYMENT  STRATEGIES 


MIL-SPEC 

COMPUTERS 

FOR  HOSTILE  ENVIRONMENTS 


DATA  GENERAL 
MVFAMILY  INFORMATION 
SYSTEMS 


Procedures — Crten  ^  cro- 
r  r.ds  dr.  cc-erancn  :c  c-er- 

•  exarr.p.e,  scr::r.c:  an  array;. 
.oc.~  ac-es  nc:  depenc  cn 
:d:a  .s  rceraPng  w:th.  2y 

*  aer.erir  crnce'Uure  :r.  Ac<a 
■  nrc::rirr:n:er  may  sc-ec::'/ 

:yce^  ::  aa:a  -.s  to  acer- 
.7.'?  .c-o:c  ana  nne  code  need 
ve.cC“C  rniy  once.  Havtnq 
::  peneric  prcce- 

-.03  '.ncrease  programmer 


VELOPMENT 

)NMENT 


a'~'e  20 

.  o e  en*’**! 


::3  2sscc:arec 
asc'^ot  oi  t^ie 

'O- 


:v:rorment  suppers  tne 
e:;cr*.  The  Ada  Devel- 
-zr.rr.er.\  .s  desicnec  ;o 
-  T^;je;;r.es  ar.G  the 

;T  STCMEMAN  spect- 

..'ttec  2re  caGac'.iittes 


'/e;ccrr*^r 


;r.  e."  T.dr.aqerr.er.t  ;n- 
•'r.:.p..r^t;cr.  tterttrtti  jr.a 
p  ir.G  ;73;err.  rr.ar.acerr.er.t. 

rr.er.t  'gc.s.  and  the  required 
:«  are  cuut  as  a  Iccical  iayer 
.!  ACS  V5  operating  system, 
r.cai  .aver  ts  reierrea  to  as  the 
-.Ga  Programming  Support 
..ment.  The  "KAPSE"  snie'.ds 
.icaticn  programmer  trem 
ii.s  o:  'r.e  host  operating  sys- 
:  signip.cantly  reduces  pre- 
a-  Taming  requirements.  Ln 
'.  is  t.ne  TeS  soliciiies  the 
vtronment  specificancn, 
vPSE"  vviil  allow  aacption 
“  stancarGs  :cr  tne  Ada 


User  Interface-Command  Line 
Interpreter  (CLI) 


The  CLI  IS  tne  primary  interface 
between  the  programmer  and  '.he 
Aca  Ceveicpmer.t  Environment. 
The  CLI  controls  termi.nai  sessions, 
access  to  tools,  and  provides  a  user 
"helc  '  iaciiitv. 


Data  Base  Control  Tools 
The  Ada  Development  E.'ivircnment 
has  tour  data  control  tools:  the  Data 
Base  .Manager  (DBM),  consisting  of 
the  Ccntiguraticn  Control  Manager 
'CCMi,  t.he  Mapper,  and  the  Librar¬ 
ian.  The  DBM  precefines  data  case 
pr:.miti'/es  and  alicws  aeiT.niticn  ot 
user  primitives.  It  also  provices  ser¬ 
vices  tor  creating,  accessing,  mcdi- 
'  'inq,  relating  and  deleting  ail 


ADE  Gate  base  objects.  The  CCM 


prcviaes  control  over  the  .manipu- 
iaticn  ct  ADE  data  base  ODjects, 
inciudinq  archiving  and  revision 
centre!  services.  The  Map.oer  pro- 
vices  the  means  by  wnich  library 
eciects  can  oe  specified  and  .ocated. 
."tnaily,  the  Librarian  is  respcnsioie 
tor  ccntrciiing  the  logical  groupings 
OI  obiects  comprising  Ada  hbrar/ 
units  and  subunits,  as  well  as  con¬ 
trolling  access  to  those  objects. 


Application  Development  Tools 

Tnese  tools  include  the  Editor, 
FermaPer,  Pretty  Printer,  File  Mam- 
tamer,  and  Debugger.  The  Editor  is 
used  by  programmers  to  enter  Ada 
source  text,  as  well  as  other  textual 
materials:  it  is  capable  oi  .Ada- 
indenting  and  format  control.  The 
Form.atter  processes  text  files  and 
reformats  them  into  documentation 
flies.  The  Pretty  Printer  is  respon¬ 
sible  for  printing  Ada  programs  m 
a  logical  Ada  format.  The  File  Mam- 
tainer  allows  comparisons  of  object 
programs:  text  files  and  typeiess 
files  can  each  be  compared.  The 
Debugger  provides  a  symbolic 
Gebuqging  facility  to  aid  in  the  test¬ 
ing  of  Aca  application  programs. 


Target  Development  Tools 
Several  of  t.he  tools  are  configured 
tc  support  specific  target  mac.hines. 
These  tools  include  the  Ada  com¬ 
pilers  them.selves,  Runtime  Support 
Packages,  Assemblers.  Cbiect 
Imporers,  Linkers,  and  Elxponers. 
A.da  compilers  with  unique  coce 
generators  will  be  avaiiaole  for  each 
cf  the  target  CPU's. 

Unique  Runtime  Support  Packages 
are  supplied  for  eac.P  oi  the  target 
environments.  Each  target  also 
requires  its  own  Assembler,  which 
will  be  available  as  a  cross-develop¬ 
ment  tool.  The  Object  Importer  is 
used  tc  bnnq  into  the  Aaa  Develop¬ 
ment  Environment  binary  modules 
produced  by  other  language  com¬ 
pilers  such  as  FORTRAN  77.  The 
Linker  combines  Ada-binary  with 
Libraries  and  Runtime  Support 
Packages  to  create  Ada  Program 
Files.  The  Exporter  tools  are 
.-espcnsibie  for  formatting  and 
trar.sternnq  Ada  Program  Files 
fre.m  the  host  environment  to  the 
target  environm.ents. 

Libraries 

The  Ada  Work  Center  includes 
Libraries  of  Packages  that  are  use¬ 
ful  to  application  programs.  The 
STANDARD  Package  includes  ail  of 
the  basic  language  definitions,  such 
as  data  types,  allowable  operations, 
and  predefined  exceptions.  1/0 
Packages  define  fundamental  data 
input/'output  capaDiiities  such  as 
sequential  and  direct  L  O.  A  Math 
Package  provides  users  with  pro¬ 
grams  for  computing  comjr.only 
used  .math  functions,  such  as  sine 
and  cosine. 

SOFTWABE  OPTIONS 

The  Ada  Work  Center  supports  non- 
Ada  language  program  development 
concurrently  with  Ada  program 
development.  Amy  softwr  re  available 
uncer  the  A.OS/VS  operating  system 
IS  available  on  the  Ada  Werx  Center. 


DEVtLOPMfcNr 


ADE™  S 


M  ^  i  ^ 

/  ^  i  ^  k 

rr! 

hi/ 

\4r 


ASSEMBLER 


iS  1«  \  C 

Lo\t\ 

i  <t  1  y 


08J£C^ 


INTERFAC 


COMMAND 
LANGUAGE 
INT 
PRE 


IJSER  interface 


ADE-Ada  Development  Envirc 
ANSI  Standard  Ada  Compiler 
integrated  Ada  environment  tc 


features  full  DOD-Spec 
e  most  complete  set  of 
ailaoie 


’  PHCGFb^.MMING  LAIJGUAGE 

:  la:igua  ge  features 

:jr'.r..er  .r\  tr.e  Acd  :Tf. 

.  •  :r.  .rr.'Z .~rr.er.:^::c^.  z:  ‘r.e 


r  ::  ‘.r.e  :-'i!--.res 

■  ;  •  -  rrr-i-r::-'::  .n  ‘::e  AcJ 

je  Mon^a.,  w^r",e 

■  ;■■  A  : :  iTr  :“bCr::;^c:  ;';ere: 
lerr.  Scttware  Engineering 
T.cnaicgies— 7:,e  £vr.:ac*;c  str’-ic- 

•  ■  ■  ^  ^  4  ^ -♦I  V 

rcr’s  :rcer.y  pregram  jeveicc* 
As  3  ciccK-structured 
pipage,  Aca  ;ac:i:tates  logical 
■.cr.o  anc:  orderly  coding.  Tep- 
m.erncdcicgies  are  sueperea 
.arate  ccmpuaticn  capacui- 
3r.d  cv  :r.e  ieparaiion  ct  t.ne 
'.:;:ica::cn  ana  impierr.entaticn 
a:  ir.  rc'ec!.  Bcttcm  up  methc- 
are  rupcor'ea  by  :ne  use  c! 
■ar:es  ::  cacicages.  Because  oi 
supcer*  :cr  tnese  methodologies, 
a  .s  ^sec  .ov  5cm*e  crganications 
1  fvsterr.s  design  spec.li- 


Cb]ect  Orientation — Aca  .rdr''Gu-'eG 
;r.e  zzr.cey:  zi  pacfcages  A.  cdc.-:ace 
ccr.sisrs  c:  a  iceciiicaticn  cart  arc 
an  ;mp.err.er.td::cn  par.  which  can 
ce  ,'crr.ci;ec  secdrately.  Feterences 
:c  a  pdc.<dge  are  cn,y  made  :c  :he 
£pec'.::c3:;un  part.  This  concept  alsc 
supports  inrcrmaticr.  r.iding.  ..e.  tne 
rerma's  a:  data  structures  need  not 
ce  snewn  *c  ctr.er  pacKages  and 
suc-crcgrirns  wnich  use  ‘hat  data. 
Taia  ran  or.iV  he  accessed  unrough 
tr.e  prcc‘^aures  directly  contrclling 
tr.e  da*d. 

Ancnner  aspect  ci  the  Ada  cb-ect 
criertaticn  is  a  ccm.prenensive 
r^enarite  scrnpiiaticr.  ’acuity  ir.is 
a..cws  succrdinat^  racKaces.  suc- 
prccrams  ana  *asK.s  to  oe  separately 
'crr.p;.ea  5s  sucur.its  Althcugh  the 
iucur.'.’s  are  <ep*  as  separate 
data  case  cciects,  the;r  spec-.pcatten 
pars  rerr.air.  .r.  tr.e  parent  pacKaces 
ir.j  sccprccra.T'.s.  Thus,  the  entire 
evecutacje  prccra.m  can  east]'/  be 
ccnstruc'ec  at  nr.r:  pme.  This  cbiect 
;r:enta:;cn  c:  tne  .-.da  lancuace  pro¬ 
motes  ’.ne  ittdir.m.ent  oi  ‘.he  scif.vare 
re:,acn.ty  pcr:aci..iy,  ana  reuse- 
.aci.ity  pcd.s. 

Strong  Data  Typing— Al!  -data  must 
ce  typed.  There  is  a  rich  assortment 
ct  natural  aata  types  which  are 
detined  in  the  .Ada  language,  and 
users  may  define  their  o'wn  types. 
Creation  of  user  data  types  not 
only  enhances  the  self -documenting 
teatures  cf  Ada.  but  it  facilitates 
Icgicai  correctness.  Only  similar 
data  types  .may  be  combined  in  logi- 
:ai  :r  arithmetic  operations.  The 
compiler  is  respcr.sicie  ter  c.necKtr.g 
'.ne  correctness  ci  all  operations  at 
ccmpiie-'ime  and  at  runtime. 


Complex  Data  Structures — The 
-TC.m.piier  ai.cws  me  user  ‘c  .create 
ccrr.Cie.x  data  structures.  .Arrays  oi 
arcitrary  ci.mensicns  and  aynamic 
sice  car.  ce  createg  Strings  are 
c'eateo  as  a.-rays  ct  characters, 
hec.crds — cc.lecticns  oi  .aata  ci 
aissimilar  types  —  are  suppcrtec. 
Variant  recercs,  wnere  ‘..ne  icrmat 
v-aries  as  a  tuncticn  ci  values  ol 
caia  vvitnin  inciv.dual  reccras,  can 
oe  -createG.  Tata  .-‘ructures  ca.n  ce 
cc.m.pcsec  in  arciirariiy  ccmpie.x 
ways  allowing  arrays  c;  reco.’'as 
reccrcs  emDecaec  wvtnin  reccras 
arrays  w!t.‘'.in  reccras  and  sc  cn. 

Concurrency  and  Multitasking — The 

.ar.cuage  aeiiniticn  c:  .Ada  supports 
.-'cncurrent  operaticns.  This  concur¬ 
rency  IS  cased  cn  a  tasning  mocei, 
whicr,  includes  m.tepask  communi¬ 
cations  and  syncnronization  proto¬ 
cols,  ana  parallel  execution.  This 
13  an  i.m.pcrtani  teature  tor  real-time 
applications. 

Exception  Handling — A.da  has  the 
acility  ‘o  recover  :rcm  execution 
time  errors  suen  as  arithmetic  lauils, 
hareware  faults,  and  array  bounds 
errors.  Furtner,  the  user  may  specify 
at  what  level  in  the  program  this 
error  should  be  handled.  Errors  are 
handled  ‘.vhere  they  logically  should 
be  handled,  rather  than  allowing 
their  effects  to  propagate  destruc¬ 
tively,  or  allowing  the  operating 
system  to  deal  with  them  m  an  arbi¬ 
trary  way.  This  gives  the  user  a 
great  deal  of  control  over  real -time 
situations. 
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Ada  WORK  CENTER 
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F  E  A  TUBES 

■  Fully  integrated  hardware  and  software  Ada"  Work 

■  AJ.so  available  as  full  Ada  software  development 
system*. 

■  Accepts  full  Ada  language  as  deftned  in  the  1983  Ada 
Lancruaae  Reference  Manual,  MIL-.STD- 1815(A)  and 
ANSI  MiL-STD  :S15A-1983. 

■  Extensively  tested  against  th*^  availabi®  DoD  ACVC 
'.■alicaticn  Suite. 

■  Comipilcrs,  'COGe  generators,  and  m.aicr  environment 
*og1s  written  in  Ada. 

■  Hosted  on  powerful,  32- bit  ECLIPSE"  MV/Famiiy 
oystem.s. 

■  Produces  executable  Ada  obiect  programs  v/hich 
■an  oe  targeted  at  32-bit  ECLIPSE  MV-  Famuly  and 
r.c^LM"  Mil-Spec  computer  system.s. 

■  Host.  Tar.pet  naidware  and  software  L  O  compatibility. 

■  Ac.a  Deveicpment  Envircnmient  ''ADE  “  software,' 
using  juiaeiines  ct  the  DoD  STONEMA.N  Speciiica 
•.cn  IS  cuilt  cn  AOS/'VS  Operating  System. 

■  A'.^o,  VS  F'VRTRAN  77  -b'ect  code  can  ce  m.tearatea 
i.nu  .-upc:rt“d  in  .Ana  Deveicpm.ent  Envircnm.ent, 

■  .c,.cpc.'*:;  trcm.  ^  to  .5  .meractiV'^  Ag.i  r;rcaram. 

:>- •  v^cc p rr.^nt  wc  r -istat ; * ; n  - . 


The  Ada  Vj’crK  Ce-:er  ;s  a  cc.'nrieTe 
ccp.iicruranor,  '.hai  ir.ciuaes  luaru 
ware  schware,  .anj  .^...ppcrt  a.nc 
aiicws  users  to  oecorr.e  inrin':ea;d:eiy 
productive  in  '.he  ueveiopment  o: 
applications  .n  ‘he  .Aaa  '.anquaGe, 
The  hardware  pernor*  -r!  th»  sys'err. 
centers  on  '.he  .niGr.  per’crrr.arice, 
32-tir  ECLIPSE  NtV  Family  Sys¬ 
tem.s.  The  Aaa  ccmciier  accepts  the 
tuli  Ada  language  as  denned  by 
MIL-STD- ISlSt A)  and  bv  the  ANSI 
MIL-STD  ;8I5A-1983. 

The  .Ada  'A'crk  Center  aisc  incluaes 
a  comiprenensive  .Ada  prcgram.m.ing 
environment  'o  support  aeveiopm*er.* 
and  mdint'-nance  activities  Based 
upon  guiaennes  aescribed  in  the 
DcD  STONEMAiN  speciticatior, 
taking  toil  advantage  oi  the  prever. 
power  ana  versatility  of  'ne  Data 
General  AOS- VS  virtual  miemcry 
operating  system,  the  Ada  Deveiep- 
meni  Environment  will  substantially 
increase  programmer  productivity 
and  minim.ize  costs  asscciateo  with  ^ 
program  deveicpm.ent,  •esting,  ana 
maintenance, 

ECLIPSE  MV'Fam.ily  Systems  pro 
vide  ideal  nosts  tor  ‘."le  .Ac.a  oom.pil.'^r 
and  Ada  Deveiopm.ent  Envircn.Tien' . 
Four  packaged  Aaa  Work  Center 
Systems  are  avaiiabie-  Two  ECLIPSE 
MV  4000'"  based  systems  are  ‘^xoei- 
lent  entry  level  syste.m.s  ter  ..p  tc  5 
concurrent  Aaa  developers.  E;r  up 
to  8  users,  ’n  ECLIPSE  ,MV  .3009’ 
based  Ada  Work  Center  i.s  a  *'ost 
eifective  choice  The  ECLIPSE 
MV  10000''-'  based  A.aa  Work  Center 
IS  the  .m.cst  pcwert  *i  'onliaurat.*,n 
an-,:  supper’s  up  1::  .;imu*tant-',  -is 
users.  Eucn  .-A-ua  V.,;r.<  .Oeriter  ’om.e'; 
''om.piete  wi'h  u  system  consc-it-  tisn 
storage,  a  mdanetic  ’aoe  uni*  me: 
.■'ptic.nai  .me  rirm.ter  Thi-  .system 
m*ay  Pe  exoaruea  cv  'he  agcition 
mcr"  :.--'r;prier-’.i.''  menu  rv  m.g 'er 
m.n  in  aaiht;-,  hm  '.ill  l.n--  n 
F'  1  ..F7E  nar-'iw.ire 


r 


reading  assignment  -  TAPE  #2 

data  general  -  ADA  WORK  CENTER 

» 

Next  page  intentionally 
left  blank. 
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RUMNU'.G  A  PROGRAM 


^'ext  page  intentionally 
left  blank, 


REVIEW 

o  ASSIGNMENT 

o  I/O  -  GET,  PUT,  NEW_LINE 
o  FLOW  OF  CONTROL  -  IF,  LOOP 
o  DECLARATIONS  -  TYPE  AND  OBJECT 
o  EXPRESSIONS  -  ARITHMETIC  AxND 
LOGICAL 

o  TYPE  CONVERSIONS 
o  MAIN  PROCEDURE 
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ELABORATION  OF  STRING 
DECLARATIONS 
S:  STRING  (1..5); 

T;  constant  STRING  :=  "HELLO"; 
—STORAGE,  AND  HENCE  SIZE, 
—FIXED  WHEN  DECLARATION 


—  IS  ELABORATED 


ELABORATION 
DECLARATIONS  INVOLVE 


RUN-TIME  ACTIVITY  : 

1)  STORAGE  ALLOCATION 
CREATE  OBJECTS 

2)  INITIALIZE  OBJECTS 
EXAJfPLE  - 

I  :  INTEGER  0; 
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for  COLOR  in  COLOR  CHART 


loop 

—TRY  COLOR 
exit  when  GOOD; 


i 


LOOP  STATEMENT 
LOOP_STATEMENT 

1  LOOP_S  IMPLE__NAME :  ] 
[INTEIIATI0N_SCHEME1  loop 
S EQUENCE_OF_STATEMENTS 
end  loop  fLOOP_SIMPLE_NAMEl ; 
IMTERATION_SCHEME  ::=• 

i  while  CONDITION  \ 

for  LOOP  PARAMETER  SPECIFICATION 


LOGICAL  EXPRESSIONS 


o  and  o£  |  xof 

—ALLOW  ARGUMENTS  TO  BE 

f  •  —EVALUATED  IN  EITHER  ORDER 

o  and  then  |  o£  else 
—LEFT  ARGUMENT  FIRST 
o  RELATIONAL  OPERATORS  PLUS  jni, 
*  not  in 


25 


D  EVEL(iP>f ENT  ENV I RONMENT 


DEBUGGING 
TOOLS 

LI3R.4RIAN 
SOURCE  EDITOR 


I - 

I  .\DE 
!  HOST 


ADE 

TARGET 

ISA 

Rra-TIME 


COMPILER 


LOADER 


LOGGING  ON 


<  CR  > 

USERNAME:  bill  <CR> 
PASSWORD:  x  <CR  > 
AOS  CL I 
)  aenter 
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INSERT 

MODIFY 

DELETE 

MOVE 

DUP 

SCREEN 

SCREEN 


AEDIT 

2 

4 

4  6 
3  5 
3  5 

AHEAD  Func 
BACK  Func 


BEFORE  7 
BEFORE  7 
2 
1 


FILE  MAKES 

OBJECT  MAKE: := 

rnENTTFIER  (1..30)  /  loUALIFIERs] 
QUALIFIERS:  '  '' 

CATEGORY  (ADA,  BIN,  PROG,  LIST) 
VERSION  1.0,  2.0,  .  .  . 

TARGET  .ADE,  AOS  VS .  .  .  , 


M 


COMMAND  EXAMPLES 


1 


ALIB 

ADE:  YOUR_LIB:WORK 

ACREATE 

FTRST/CAT=ADA 

AEDIT 

FIRU? 

ACOMP 

FIRST /TAR-ADE 

ATYPE 

FIRST/CAT-LIST 

ALINK 

FIRST 

AEXEC 

FIRST 

48 


STATEMENTS  DISCUSSED  THUS  FAR 

o  DECLARATIONS 
o  GET,  PUT,  NEW_LINE 
o  ARITHMETIC  EXPRESSIONS 
o  ASSIGNMENT 
o  MAIN  PROCEDURES 
o  IF. . .THEN. . .ELSE 
o  TYPE  CONVERSION 
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LABORATORY  //I 
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laboratory  VI 

—  READ  AN  INTEGER  ('N) 

—READ  N  INTEGERS 
—ADD  THEM 

—PRINT  RESULT 

—MODIFY  YOUR  PROGRx\M  TO  .ADD 

—  N  REAL  NUMBERS 

—  EXPERIMENT  WITH  GET  AAID  PUT 

—  FOR  OTHER  TYPES 


OBJECTIVES  OF  LAB  //I 

1)  LEARN  TO  USE  ADE 

2)  COMPILE,  LINK,  AND  EXECUTE 
AN  ADA  PROGRAM 

3)  EXPERIMENT  WITH  LITERALS 

4)  BUILD  FAMILIARITY  WITH  TEXT_10 
('SEE  SECTION  14. 3^ 


1)  PPOGFAM  XA^E 
SA^E  ?£  niE  XJ’C 

2)  CET  AID  PUT 

CPTI'CN  1: 
with  'lEY  IC 
'jse  TTY_IC 

OPTiai  2: 

instantiate  TE:<T_I0 
for  INTEGEF 
0./CF.  FLOAT 


INSTANTIATE  FLOAT  10 


pragma  MAIN 

with  te:ct_io 

procedure  TEST  1  is 
package  R£AL_IO 
is  new 

TEXT_IO.  FLOAT_IO 
(FLOAT) ; 
use  REAL  10; 


GENERICS 

ENUMERATION_10  is  generic 
A  new  version  must  be 
instantiated  for  each 
enumeration  type 


ENUMERATION  i/0 

—SEE  14.3 

with  TEXT_I0;  TEXT_I0; 
package  DAY-IO  J_s  new 
ENUMERATION_IO  /DAY); 

IN_DAY:  DAY; 

GET  ('IN_DAY); 

PUT  ("DAY="); 

PUT  (IN_DAY); 

» 


ENUMERATION  TYPES 
cyt)e  DAY  is 
(MON, 

TUES, 

WED , 

THURS, 

FRI, 

SAT, 

SUN) ; 
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INDEX  VALUES 
o  DISCRETE  TYPE 
INTEGER 
or 

ENLT^ERATION 
o  DISCRETE  RANGE 

CLOSED  INTERVAL  OF 
VALUES  OF  A 

Discrete  type 
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UNCONSTRAINED  ARRAY 


subtype  POSITIVE  INTEGER 
range  1 . . INTEGER '  LAST ; 
type  STRING  array 
(POSITIVE  range  <>) 
of  CHARACTER; 

V: STRING  (1..5); 
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MULTIDIMENTTONAL  ARRAYS 
RECTANGLE:  arrav 
(  1..20.  1..30  ) 

^  FLOAT; 
type  SCHEDULE 

array  (  WEEK,  — l.,52 

DAY  ,  —MON . .  SUN 
HOUR)  — 1..24 
of  STRING; 

» 


ONE  DIMENSIONAL  ARRAYS 
type  VECTOR  is 
array  (1. .10) 
of  INTEGER; 
type  LINE  is 

array  (1. .MAX_LINE_SIZE) 
CHARACTER; 

type  SCHEDULE  is  array  (DAY) 


Q_f  BOOLEAN; 


RECORDS 

type  TIME  is 
record 

DAY  :  INTEGER 

range  0. .  3A6*{209‘)-1901+1) ; 
SECOND  :  DURATION  — see  9.6 
range  0.0.. 86  400. 0; — one  dav 
end  record ; 


TAPE  «3 


RECORDS,  ARRAYS  a  ENUMERATION  TYPES 

> 


f'EXT  PAGE  INTENTIONALLY 
LEFT  BLANK. 
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i-V '  3 


fp/v<&.s-  6<-Aaj< 


TTY_IO 

Is  package  in  ADE  Library 
provides : 

INTEGER_IO 
CHARACTER_IO 
STRING  10 


Co  certninal 
use  TTY  10 


TEIO'  10 


-FL0AT_I0 

-INTEGER_I0 

-STRING_I0 

TEXT_I0. FL0AT_I0 
use  TEXT  10 


INSTANTIATE  FLOAT  10 

pragma  MAIN 
with  TEXT_IO 
procedure  TEST  1  is 
package  INT_I0 
is  new 

TEXT_I0.  INTEGER_IO 
for  INTEGER 
use  INT  10 


SUBTYPES 

subtvpe  WEEKDAY  _i_s 

DAY  range  MON. .FRI; 
subtype  WEEK 

INTEGER  range  1. .52; 
subtype  HOUR 

INTEGER  range  1. .  24; 


SUBTYPE 

o  SUBSET  OF  VALUES  OF 
BASE  TYPE 
o  DETERMINED  BY  A 


CONSTRAINT 


I 


\ 


A 


* 


Cvpe  COLOR 
(WHITE, 
RED, 
YELLOW, 
GREEN)  ; 


OVERLOADING 

type  LIGHT 
i_s  (RED 
AMBER, 
GREEN) ; 


COLOR 'GREEN  /=  LIGHT 'GREEN 


i 


« 
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OVERLOADING 
o  THE  SAME  IDENTIFIER 
HAS  MORE  THAN  ONE 
MEANING  AT  A  GIVEN 
POINT  IN  PROGRAM  TEXT 


TYPE 

o  A  SET  OF  VALUES 
and 

0  A  SET  OF  OPERATIONS 
APPLICABLE  TO 
THOSE  VALUES 


57 


1 


SUBTYPE 

o  SUBSET  OF  VALUES  OF 
BASE  TYPE 
o  DETERMINED  BY  A 
CONSTRAINT 


68 


ii 


■1 


OBJECl' 

0  OBJECTS  CONTAIN  VALUES 
o  CREATED  BY  ELABORATING 
A  DECLARA.TION  (OR 
o  TYPE  BOUND  AT 
ELABORATION 


» 


i^'EXT  PAGE  INTENTIONALLY 
LEFT  BLANK. 
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FLOW  OF  CONTROL 


Next  page  intentional 

LFET  BLANK. 


FLOW  OF  CONTROL  STATEMENTS 

1.  SEOUFNTIAL 

2.  IF.  .  .THEN,  .  .ELSE 

3.  CASE,  .  .IS.  ,  . 

4.  WHILE.  .  .LOOP 

5.  FOR,  .  .LOOP 

6.  EXIT.  .  .WHEN.  .  . 

7.  PROCEDURE  CALL 

8.  FUNCTION  INVOCATION 
R,  RETURN 


1 


OTHER  STATEMENTS  AFFECTING 
FLOW  OF  CONTROL 

10.  RAISE  —EXCEPTION 

11.  TASK  INITIATION 

12.  ENTRY  CALL  - 
RENDEZVOUS  FROM  USER  TASK 
LOOKS  LIKE  A  PROCEDURE  CALL 

13.  ACCEPT  - 

RENDEZVOUS  FROM  SERVER  TASK 

14.  ABORT 

DON'T  USE 


IF  STATEMENT 

D  >=  n 

then 

PET  ("POSITIVE  ROOT  ='n 
—  ETC. 


e  I  .s  e 

PET  ("IMAGINARY  ROOTS"! 
end  i f  ; 


/ 


c 


if  STATEMENT 


IF_STATEMENT 

CONDITION  then 
S EOUENCE_OF_STATEMENTS 

«  «  « 

f  else 

SEQUENCE_OF_STATEMENTS ] 
end  if; 
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CASE  STATEMENT 
case  SENSOR  is 

when  ELEVATION  => 
RECORD_ELEVATION 
(SENSOR_VALUE) ; 
when  AZIMUTH  => 
RECORD_AZIMUTH 
(SENSOR_VALUE) ; 
when  others  =>null ; 


end  case 


CASE  STATEMENT 

case  DTSCRETE_TYPE_EXPRESSTON 
—COVER  VALUES  ONCE 
when  DISCRETE_RANGE  => 

when  ANOTHER_DISCRETE  => 

when  other  => 


end  case ; 
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WHILE  .  .  .  LOOP 
WHILE  CONDITION  EVALUATED 
BEFORE  EACH  EXECUTION  OF 
THE  SEQUENCE  OF  STATEMENTS 
while  CONDITION  loop 
S  EQUENCE_OF_STATEMENTS 
end  loop ; 

ONLY  EXECUTES  IF  CONDITION  TRUE 


SO 


t 

► 

f. 


FOR  .  .  .  LOOP 
for  I  DISCRETE_RANGE 
loop  .  .  .  end  loop; 

1 .  CREATES  I 

2.  EVALUATES  DISCRETE  RANGE 

3.  IF  DISCRETE  RANGE  NOT  null 
EXECUTE,  TREATING  I  AS  CONSTANT 

4.  AFTER  ALL  VALUES,  DESTROY 
I  AND  EXIT 


fl 
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LOOP  STATEMENl 
LOOP_STATEMENT 

r  LOOP_S  IMPLE_NAME :  1 
[ ITERATION_SCHEME 1  loop 
SEOUENCE_OF_STATEMENTS 
end  loop  [LOOP_SiMPLE_NAMEl 
HERAT  ION_SCHEME  : :  = 
while  CONDITION 
I  for  LOOP_PARAMETER_SPEC 


EXIT  STATEMENT 

OUTERJLOOP : 

for  I  in  1 . . 10  loop 
for  J 

in  ’^gygrse  L. .  10  loop 
exit  when  J  =  I  +  3; 
exit  OUTER_LOOP 
when  J  =  I ; 
end  loop; 

end  loop  0UTER_L00P; 

—  I  AND  J  NOT  VISIBLE 


33 


EXIT  STATEMENT 

EXTT_STATEMENT  : :  - 
exit  [LOOP_NAME] 
[when  CONDITION) ; 


» 
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PROCEDURES  AND  FUNCTIONS 
PROCEDURES 

GET  (AI;  PUT  (A) ; 
NEW_LINE  ; 

FUNCTIONS 

SORT  (O');  -- 
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NAMED  vs  POSniONAL  PARAMETERS 
procedure  CREATE 

(FILE:  Ln  out  FILE_TYPE; 

MODE:  ^  FILE_MODE  :=  default; 
NAME:  STRING  ; 

FORM:  ^  STRING  :=  " 

CREATE  (WALDO);  —TEMP  FILE 
CREATE  (JUDY,  NAME  =»  >  "JUDY") ; 
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OVERLOADING 
PARAMETER_TYPE_PROFILE 
—  //  PARAMETERS; 

—  BY  POSITION,  PARAMETERS 
—  HAVE  SAME  BASE  TYPE 
RESIT.  T_TYPE_PROFILE 
--  SAME  BASE  TYPE 

—  NOTE:  NOT  NAMES,  NOT  MODES, 

—  NOT  SUBTYPES,  NOT  DEFAULTS 
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OVERLOADING  OPERATORS 
o  CAN  OVERLOAD  PREDEFINED 
OPERATOR  SYMBOLS 
o  CANNOT  OVERLOAD  MEMBERSHIP 
TEST  OR  SHORT  CIRCUIT 
CONTROL  FORMS 
o  EXAMPLE: 

function  (LEFT, RIGHT:  MATRIX) 

return  MATRIX; 
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EXCEPTIONS 

DEAL  WITH  ERRORS  OR  OTHER 
EXCEPTIONAL  SITUATIONS 
EXCEPTION  NAMES  ASSOCIATED  WITH 
EXCEPTIONS  AT  COMPILE  TIME  AND 
STAY  SAME  NO  MATTER  HOW  OFTEN 
DECLAR.ATION  IS  ELABORATED 
—  EG,  RECURSIVE  CALLS  DON'T 
—PROLIFERATE  EXCEPTIONS 


RAISING  EXCEPTIONS 
o  DRAW  ATTENTION  TO  ABNORMAL 


1 


SITUATION 

o  ABANDON  NORMAL  PROGRAM 
EXECUTION 

o  TRANSFER  CONTROL  TO  USER 
PROVIDED  HANDLER 
o  OR  PROPAGATE 
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ST^MVf^RY 

FLOW  OF  f.ON'^ROL 
SFOUENTTAL 

IF.  .  .THEN.  .  .ELSE 
CASE.  .  .IS.  .  . 
WHILE.  .  .T.OnP 
for.  .  .LOOP 
"XTT.  .  .WFN 
PROCEDIIRF  CALL 

ft;nction  invocation 
RETIfPN 

RAISE  —EXCEPTION 
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c(’vaf,\Rv  OF  FyoFPTrONS 
o  FXCFPTIONF  ,'RF  MOT  OBJFCTS. 

THFV  .'PF  MFPFTY  TAGS, 
o  PROPAGATFO  OYMAMTCALLY 
r  Tl'FY  FXIST  THROI'GHOUT  PROGRAM 
[.IFF  - 

—CAM  BE  PROPAGATED  OUT  OF 
SCOPE  AMP  "HFM  BACK  IM 
AGATM 

o  ONLY  USF.  for  ABNORMAL  EVENTS 


1  n 

\  -J 


EXAMPLE  (CONT) 
procedure  AVERAGE  .  .  . 

CbegliQ  loop  declare  rbeglg) 

GET  (DATA); 

DATA  =»  -1  then  EXIT;  end  1^; 
SUM  :=«  SUM  +  DATA 
COUNT  :=  COLTIT  +  1; 
exception  when  CONST RAi*4*T«. 

=>  BAD  BAD  +  1;  ^nd  Q 
end  loop;  PUT  ("AVERAGE  -") ; 

PUT  (FLOAT (SUM) /FLOAT (COUNT)); 
^e^  AVERAGE; 
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EXAMPLE 


procedure  AVERAGE  is 

DATA:  INTEGER  range  -1..99  999; 
SUM,  COUNT,  BAD;  INTEGER: =0; 


begin 

loop 

declare 
begin  . . . 
exception 
end ; 


—COLLECT  DATA 
—TRAP  BAD  DATA 
—ACCUMULATE 
—COUNT  BAD  DATA 
—END  ITERATION 


PROPAGATION  OF  EXCEPTIONS 


WHERE  RAISED 
AND  NOT  HANDLED 
SUBPROGRAM  BODY 
BLOCK 

PACKAGE  BODY 


LIBRARY  UNIT 

TASK  BODY 


WHERE  RAISED 
NEXT 

POINT  OF  CALL 
AFTER  BLOCK 
AFTER  BODY  - 
WITHIN  ENCLOSING 
DECLARATIVE  PART 
ABANDON  MAIN 
PROGRAM 
TASK  COMPLETED 
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SCOPE  OF  EXCEPTIONS 
EXCEPTIONS  HAVE  IDENTIFIERS 
A  DEFINITION  OF  THE  EXCEPTION 
IDENTIFIER  MITST  BE  VISIBLE  WHERE 
AN  EXCEPTION  IS  RAISED  AND 
WHERE  A  HANDLER  IS  DEFINED 
HANDLERS  ARE  INDEPENDENT  OF 
EXCEPTION  DECLARATIONS  AND 
ARE  OPTIONAL 


EX^MPLE 


begin 

— SE0UENCE_OF_STATEMENTS 
exception 

when  SINGULARjNUMERIC_ERROR=> 
PUT  ("MATRIX  IS  SINGULAR"); 
when  others  => 

PUT  ("FATAL  ERROR"); 
raise;  —PROPAGATE  SAME 
EXCEPTION 

end; 
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EXCEPTION  HANDLER 
EXCEPTION  HANDLER 


when  EXCEPTION_CHOICE 
f(EXCEPTION_CHOICE} 
=>SEQUENCE_OF_STATEMENTS 
EXCEPTION_CHOICE  ::= 

EXCEPT I ON_NAME  ) others 


EXCEPTION  HANDLERS 


begin 


SEQUENCE_OF_STATEMENTS 

exception 

EXC EPT I ON_HANDL ER 
EXCEPTION  HANDLER 


HANDLINC  EXCEPTIONS 

declare 

N  ;  INTEGER  :=  0; 
hesln 

N  :=  N+J**A(KI;  — A&K  GLOBAL 
exception 

when  others  =>  PUTC'AN  ERROR") 


i 
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PREDEFINED  EXCEPTIONS  (CONT) 
STORAGE»ERROR 

o  DYNAMIC  TASK  STORAGE  EXCEEDED 
o  DURING  ALLOCATION  IF  COLLECTION 
FULL 

o  INSUFFICIENT  STORAGE  TO 
ELABORATE  A  DECLARATION  OR 
•  CALL  A  SUBPROGRAM 


m 


fft 


I 
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PPEDEFINED  EXCEPTIONS  (CONT) 


PROGRAM_ERROR 

o  CALL  SUBPROGRAM  BEFORE  BODY 

o  ACTIVATE  TASK  “  IS  ELABORATED 

o  ELABORATE  GENERIC 
o  REACH  END  OF  FUNCTION 
o  SELECTIVE  WAIT  WITHOUT  OPEN 
BRANCHES 

o  ERRONEOUS  ACTION 
o  INCORRECT  ORDER  DEPENDENCY 


I 


PREDEFINED  EXCEPTIONS  (CONT) 
NUMERIC^ERROR 
o  EXECUTION  OF  PREDEFINED 
OPERATION  CANNOT  DELIVER 
CORRECT  RESULT 
TASKING_ERR0R 

o  EXCEPTIONS  DURING  INTERTASK 
COMMUNICATIONS 
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PREDEFINED  EXCEPTIONS 


CONSTRAINT,ERROR 

o  VIOLATE  RANGE  CONSTRAINT 
o  VIOLATE  INDEX  CONSTRAINT 
o  VIOLATE  DISCRIMINANT  CONSTRAINT 
o  NON-EXISTENT  RECORD  COMPONENT 
o  NULL  ACCESS  VALUE 


TAPE  #5 


DEFINING  PROGRAI^  COMPONENTS 


N.ext  page  intentionally 

LEFT  BLANK. 


COMPONENT 

A  VALUE  THAT  TE  PAPT 
OF  A  LARGER  VALUE 
AN  OBJECT  THAT  IS  PAPT 


i 


t 


FOLLOWING  ARE  PROGRAM  COMPONENTS 

o  PROCEDURES 

r  .  0  FUNCTIONS 

»l 

o  PACKAGES 
o  TASKS 
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SUBPROGRAM  DECLARATION 
procedure  IDENTIFIER  [formal  parti 
function  DESIGNATOR  [fonnal_partl 
return  type_mark 
formal  part  : :  = 

(parameter_specif ication 
parameter_speciflcation^ ) 
parameter_speclf Ication  ::= 

Identif ier_list  :  mode 
type  mark  [  :=  expression] 


PROCEDURE  EXAMPLES 
procedure  RIGHT  _INDENT 
(MARGIN:  out  LINE_SI2E) ; 
procedure  SWITCH 

(FROM,  TO:  in  out  LINK); 
procedure  PRINT_HEADER 
(PAGES:  ^  NATURAI); 

HEADER:  iji  LINE 
:=  (1.  .LINE'LAST  :  = 

CENTER:  BOOLEAN  :=  TRUE); 


FUNCTION  EXAMPLES 
function  RANDOM  return 
PROBABILITY; 

function  MIN^CELL  (X  :  LINK) J 
function  DOT_PRODUCT 

(LEFT, RIGHT  :  VECTOR) 
return  REAL; 

function  (LEFT, RIGHT  :  M.\TRIX) 

return  MATRIX; 


m 


PARAMETER  PASSING  MECHANISMS 


In 

In  out 

out 

scaler 

copy 

copy 

copy 

access 

copy 

copy 

copy 

arrav 

\  either  reference  ; 

record 

'■ 

or  copy 

\ 

task  type 

J 

private  type  according  to  full  type 


PARAMETER  PASSING  MECHANISMS 
-COPY- 


procedure  PUT  (X:  INTEGER!  is  .  .  . 
—CALLED  BY  PUT  (28) 

CALLER  PUT 

- 1  I - 1 


COPIED  X  _ 

28*. _ 

^  28 

(  • 


1 


3 


PARAMETER  PASSING  MECHANISMS 
-REFERENCE- 

tvpe  TABLE  arrav(1..10)  £f  INTEGER; 
procedure  OUT  (X:  TABLE)  .  .  . 
—CALLED  BY 

—  Y  :  TABLE  :=  (others=>  0); 

—  OUT  (Y) ; 


caller  out 
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MATCHING  ACTUALS  FORMAL S 

o  ACTUALS  AND  FORMALS  MUST  BE 
OF  THE  SAME  BASE  TYPE 
o  IF  FORM.\L  IS  CONSTRAINED 
—ACTUAL  VALUE  MUST  OBEY 
—CONSTRAINT 

—  (BUT  NOT  TYPE  OF  ACTUAL) 
o  IF  ACTUAL  out  or  in  out 
—MORE  CONSTRAINED  THAN 
—FORMAL  AND  SCALER  THEN 
— MITST  OBEY  AT  COMPLETION 
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MATCHING  ACTUALS  &  FORMAL S 
(CONT) 

o  IF  FORMAL  IS  UNCONSTRAINED  ARRAY 
—ACTUAL  MUST  BE  CONSTRAINED 
—DETERMINES  BOUNDS 
o  IF  FORMAL  IS  RECORD  OR  PRIVATE 

—WITH  UNCONSTRAINED  DISCRIMINANT 
—THEN  USE  DISCRIMINANT  OF 
—ACTUAL  INCLUDING  UNCONSTRAINED 
—IF  ACTUAL  IS  UNCONSTRAINED 


WARNINGS 

o  FOR  ARRAYS  AND  RECORDS 
ASSIGNMENTS  TO  FORMAL  M/\Y 
OR  MAY  NOT  AFFECT  ACTUAL  IF 
SUBPROGRAM  IS  ABANDONED 

o  WHERE  ACTUAL  IS  ACCESSIBLE 
BY  MORE  THAN  ONE  PATH 
CE.G.  GLOBAL  IDENTIFIER) 
VALUE  IS  UNDEFINED  AFTER 
UPDATING  BY  ANY  MECHANISM 
OTHER  THAN  ASSIGNING  TO 
FORMAL  AND  RETURNING 
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SUBPROGRAM_DECLARATION 

SUBPROGRAM_SPECIFTCATTON 
SUBPROGRAM_SPECIFICATION 
procedure  IDENTIFIER 
r  FORMAL_PART ] 

I  function  DESIGNATOR 
r  FOR>lAL_PART  1 
return  TYPE__MARK 
DESIGNATOR  ;:=  IDENTIFIER 
\  OPERATOR  SYMBOL 
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FORMAL_PART  :  :  = 

(PARAMETER_SPECTFICATION 

PARAMETER_SPECIFICATT0N}) 
PARAMETER_SPECrFTCATION  ::= 
IDENTIFTER_LIST  : 

MODE  TYPE_MARK 
f  ;=  EXPRESSION  1 
MODE  : ;=  f INI jiN  OUTjoUT 
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DISCRIMINANTS  OF  PRIVATE  TYPES 
type  TEXT  (MAX_LNG  :  INDEX) 
is  limited  private; 
private 

type  TEXT  (MAX_LNG  :  INDEX) 
record 

POS  :  INDEX=o; 

VALUE  :  STRING 

(1  ..  MAX_LNG); 
end  record; 
end ; 
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packajge  KEY_MANAGER 
type  KEY  Is  private; 
NTJLL_KEY  :  constant  KEY; 
procedure  GET_KEY 
(K  :  ouC  KEY) ; 
private 

type  KEY  Is  new  NATURAL; 
NULL_KEY  :  constant 
and; 
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PRIVATE  TYPES  (CONT) 

PRIVATE  PART  OF  INTERFACE 

—  AFFECTS  SPEARATE  COMPILATION 
LIMITED  PRIVATE 

—  NO  IMPLICIT  ASSIGNMENT 

—  NO  IMPLICIT  EQUALITY 

—  NO  IMPLICIT  INEQUALITY 
DEFERRED  CONSTANT 

—  VALUE  IS  IN  PRIVATE  PART 


PRIVATE  TYPES  CCONT) 
IMPLICITLY  DEFINED  OPERATIONS 
o  ASSIGNMENT 
o  MEMBERSHIP  TESTS 
o  rniSCRIMINANT  SELECTION) 
o  EXPLICIT  CONVERSIONS 
o  T'BASE,  T’SIZE,  A'SIZE 
A' ADDRESS 

o  [A' CONSTRAINED  — • 

IF  DISCRIMINANT) 

0  EQUALITY  AND  INEQUALITY 


PRIVATE  TYPES 
o  PACKAGE  DEFINES  A  SET 
OF  OPERATIONS 

o  PRIVATE  TYPE  DECLARATION 
CREATES  A  TYPE  FOR 
OBJECTS  TO  WHICH  THE 
OPERATIONS  APPLY 
o  DETAILS  OF  THE  PRIVATE 
TYPE  HIDDEN  FROM  USER 


PRIVATE  TYPES 

o  HIDE  DETAILS  OF  TYPE  DEFINITION 
o  ONLY  OPERATIONS  DEFINED  BY 
PACKAGE  AND  THE  IMPLICITLY 
DECLARED  OPERATIONS  CAN 
AFFECT  PRIVATE  TYPES 
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package  WORIC-DATA  is 

type  DAY  is  (MON,  TUES,  WED, 
THU,  FRI,  SAT,  SUN); 
type  HOURS  is  delta  0.25 
range  0.0  ..  24.0; 
type  TIME_TABLE  is 

array  (DAY)  of  HOURS 
NORMAL  ;  constant  TIME_TABLE 
(MON..THR=>  8.25,  FRI=>  7.0, 
OTHERS=>  0.0); 
end  WORK  DATA; 


PACKAGE  BODY 
PACKAGE_BODY 

package  body  SIMPLE_NAME  I3 
( DECLARATIVE_PART 1 
[begin 

SEOUENCE_OF_STATEMENTS 

Cexceptlon 

EXCEPTION_HANDLER 
^EXCEPTI0N_HANDLER}] ] 
end  rSIMPLE_NAME] ; 
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PACKAGE  SPECIFICATION 
PACKAGE_SPECIFICATION  ::= 
package  IDENTIFIER  Is 
t B AS  I  C_D ECLARAT I VE_I T EM} 

[  LIMTED]  PRIVATE 

^BAS  IC_DECLARATIVE_TTEM}1 
end  r IDENTIFIER!; 
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I 


PACKAGES 

o  A  COLLECTION  OF  RELATED 
TYPES,  SUBPROGRAMS, 

AND  OBJECTS 


123 


ACTUAL  PARAMETERS 
MODE  "IN  OUT" 


JLJL— 


ACTUAL 

FORM.\L 

PARAMETERS 

r  ^ 

MODE  - ► 

/  procedure  \ 

"IN"  - ► 

/  1 

^INTERNAL  STATE 

ACTUAL 

PARAMETERS 

MODE 

"OUT" 


I  GLOBAL  OBJECTS  ) 


PARAMETER  MODES 

0  IN  FORMAL  PARAMETER  IS 

A  CONSTANT 

o  IN  OUT  CAN  BOTH  READ  AND 

UPDATE  ACTUAL 

o  0^  CAN  UPDATE  ACTUAL 

CAN  READ  BOUNDS  AND 
DISCRIMINANT  OF  ACTUAL 
(ONLY) 
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FOLLOWING  ARE  PROGRAM  COMPONENTS 

o  PROCEDURES 
o  FUNCTIONS 
o  PACKAGES 
o  TASKS 


134 


LABORATORY  HI 


135 


ii 

laboratory  #2 

OBJECTIVES : 

1.  EXPERIMENT  WITH  Ada 
CONSTRUCTS  COVERED  ON 
FIRST  DAY 

2.  BUILD  EXAMPLE  FOR 
USE  IN  LABS  3  -  b 
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ASSIGNMENT 
SIMULATE  A  SIMPLE 


HAND  CALCULATOR 


CALCULATOR  SPECIFICATIONS 
type  OPERATIONS  U 
(-*■.  *.  /,  C); 

REGISTER  :  FLOAT; 

—GET  AN  OPERATOR 
—GET  A  NUMBER 

—OPERATOR  (REGISTER,  NUMBER) 
—PUT  REGISTER 
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wn 


i 

i 

IMPROVE  CALCULATOR 

1.  ROBUST  HANDLING  OF  BLANK 
CHARACTERS 

2.  ACCEPT  NUMBERS  WITHOUT  DECIMAL 
POINT 

3.  EXCEPTION  HANDLER  FOR  INVALID 
INPUT 


TYPE  LEGAL_OPS 
IS  •*«.  V’.  c) 
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package  OPS_IO 


TEXT  10.  ENUMERATION  TO 


(LEGAL  OPS) ; 
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ff? 
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TYPE 

o  A  SET  OF  VALUES 
and 

o  A  SET  OF  OPERATIONS 
APPLICABLE  TO 
THOSE  VALUES 


142 


TAPE  #6 


MAKING  COMPONENTS  MORE  GENERAL 


Next  page  intentionally 

LEFT  BLANK. 
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SUBTYPE 

o  SUBSET  OF  VALUES  OF 
BASE  TYPE 
o  DETERMINED  BY  A 
CONSTRAINT 


(45 


OBJECT 


o  OBJECTS  CONTAIN  VALUES 
o  CREATED  BY  ELABORATING 
A  DECLARATION  (OR  ...) 
o  TYPE  BOUND  AT 
ELABORATION 


DISCRIMINANTS 

type  SQUARE  (SIDE  :  INTEGER) 
record 

MAT  :  MATRIX  (1..SIDE, 
1..SIDE); 

end  record ; 
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VARIANT  RECORDS 
AND  DISCRIMINANTS 
subtype  DRUM_llNIT 

PERIPHERAL  (DRUM); 
subtype  DISK_UNIT 

PERIPHERAL  (DISK); 
WRITER  :  PERIPHERAL 
(UNIT  =■>  PRINTER); 
ARCHIVE  :  DISK  UNIT; 
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VARIANT  RECORDS  (CONT) 
type  PERIPHERAL 

(UNIT  :  DEVICE  :»DISK)  U 
record  STATUS  :  STATE; 
case  UNIT  Is 

when  PRINTER  => 

LINE  COUNT  :  .  .  . 
when  OTHERS  -'7' 
CYLINDER  :  .  .  . 
TRACK  ;  .  .  . 
end  case; 
end  record; 
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VARIANT  RECORDS 
tvpe  DEVICE  is 

(PRINTER,  DISK,  DRUM) 
type  STATE 

(OPEN.  CLOSED); 


157 
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UNCONSTRAINED  ARRAYS 
function  ROW_TOTAL  (MATRIX) 
returns  VECTOR  Is 
begin 

(MATRIX 'LAST (2) -MATRIX' FIRST (2)) 
/»  (VECTOR 'LAST-VECTOR 'FIRST) 
then  raise  SOME_ERROR; 

— etc 
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REVIEW  :  UNCONSTRAINED  ARRAYS 
WRITE  SUBPROGRAMS  THAT  DETERMINE 
SIZE  OF  FORMAL  ARRAYS  FROM  ACTUAL 
type  MATRIX  array 
(INTEGER  range  ^ 

INTEGER  range <>)  of  INTEGER; 
type  VECTOR  ^  array 

(INTEGER  ranges?)  of  INTEGER; 
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QUESTIONS  ON  EXAMPLE 

1.  WHY  NO  NEWJLINE  IN  LOOP 

2.  WHAT  IF  DELETE  exit 

3.  WHY  NOT  USE  EXCEPTION  AS 
TERMINAL  CONDITION 
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TYPE  ATTRIBUTES  CCONT) 
NEW.PAGE; 

X  :=P' FIRST; 

PRINT  :  while  X  <:=  P'LAST  loop 
for  I  jji  1 . . NO_COL  loop 
SET_COL  ((I-1)*HT+1); 

PUT  (P' IMAGE  (X)); 

exit  PRINT  when  X=P'LAST 

X:=P'SUCC(X); 


end  loop;  end  loop  PRINT J 


TYPE  ATTRIBUTES  (CONT) 
P' WIDTH  MAXIMUM  LENGTH  OF 
IMAGES  OF  TYPE  P 

function  LINE_LENGTH  return  COUNT 
NO«COL  :  constant  INTEGER 

;=  LINE_LENGTH/(P'WIDTH+5) ; 
HT  P’WIDrH+5i 
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TYPE  ATTRIBUTES  (CONT) 

P' IMAGE  (X); 

P  IS  DISCRETE  SUBTYPE 
X  IS  A  VALUE  OF  TYPE  P 
function  P' IMAGE  (X)  returns  STRING 
RESULT  IS  THE  PRINT  IMAGE  OF  X 
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TYPE  ATTRIBUTES 
for  J  BUFFER ’RANGE  loop 

BUFFER  (J)  /-  SPACE  then 
PUT  (BUFFER  (J)); 
end  If ; 
end  loop; 
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TOOLS  FOR  OENERALIZATIOn 
TYPE  ATTRIBUTES 
VARIANT  RECORDS 
UNCONSTRAINED  ARRAYS 
UNCONSTRAINED  DISCRIMINANTS 
PACKAGES  ARE  ABSTRACT  TYPES 
GENERICS 


OTHER  STATEMENTS  AFFECTING 
FLOW  OF  CONTROL 

10.  RAISE  —EXCEPTION 

11.  TASK  INITIATION 

12.  ENTRY  CALL  - 
RENDEZVOUS  FROM  USER  TASK 
LOOKS  LIKE  A  PROCEDURE  CALL 

13.  ACCEPT  - 

RENDEZVOUS  FROM  SERVER  TASK 
U.  ABORT 

IS.Jaxo:;—  DON'T  USE 


14^ 
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FLOW  OF  CONTROL  STATEMENTS 

1.  SEQUENTIAL 

2.  IF.  .  .THEN.  .  .ELSE 

3.  CASE.  .  .IS.  .  . 
WHILE.  .  .LOOP 

5.  FOR.  .  .LOOP 

6.  EXIT.  .  .WHEN.  .  . 

7.  PROCEDURE  CALL 

8.  FUNCTION  INVOCATION 

9.  RETURN 


.  • 


(47 


DISCRIMINANTS 

type  TEXT  (MAX_LNG  :  INDEX)  ^ 
record 

POS  :  INDEX  :=  0; 

VALUE  :  STRING  (1. ,MAX_LNG) 
end  record ; 


I  • 


UNCONSTRAINED  DISCRIMINANTS 
DISCRIMINANTS  MUST  ALWAYS 
HAVE  A  VALUE 

NORMALLY,  DISCRIMINANT  IS  A 
CONSTANT  DETERMINED  WHEN  THE 
OBJECT  IS  CREATED 
HOWEVER,  IF  DEFAULT  INITIAL 
VALUE  GIVEN  AND  OBJECT 
CREATED  BY  NORMAL  DECLARATION, 
DISCRIMINANT  CAN  BE  CHANGED 
BY  WHOLE  RECORD  ASSIGNMENT 


» 
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STORAGE  REQUIREMENT 
KNOWN  AT  ALLOCATION 
type  TEXT  (MAX_LNG: INDEX)  ,  .  , 
LINE  :  TEXT(132); 
type  TEXT  (MAX_LNG:  INDEX: =80)  , 
CARD  ;  TEXT; 

LINE  :  TEXT(132);  .  .  . 

CARD  :=LINE;  —CHANGES  MAX  LNG 
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PACKAGES  AS  ABSTRACT  TYPES 
package  RATIONALJTOMBERS 
type  RATIONAL  private 
function  EQUAL  (X,Y: RATIONAL) 
return  BOOLEAN; 
function  (X.Y: RATIONAL) 

return  RATIONAL; 
function  (X.Y: RATIONAL) 

return  RATIONAL; 


■etc 


PACKAGES  AS  ABSTRACT  TYPES 
package  RATIONAL_NUMBERS 
—etc  (CONT.) 

procedure  GET  (ITEM; out  RATIONAL; 

WIDTH FIELD  :=0) ; 
procedure  PUT  ( ITEM: RATIONAL; 
NUM_LNG : field : =DEFAULT_NUM; 

DENOM  LNG: FIELD :=DEFAULT  DENOM) 


»• 
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GENERICS 

generic 

type  P  1^  «»;  —DISCRETE 
procedure  LIST; 
procedure  LIST 

—CODE  TO  LIST  ALL 
—VALUES  OF  P 
end  LIST; 
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POWERFUL  TOOLS  FOR 

THE  LIBRARY  BUILDER 
o  ATTRIBUTES 
o  VARIANT  RECORDS 
o  UNCONTRAINED  FORMAL  ARRAYS 
o  UNCONSTRAINED  RECORD 
DISCRIMINANTS 
o  PACKAGES 
o  GENERICS 


Next  page  intentionally 

LEFT  BLANK. 
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TAPE  #7 

DESIGN  GUIDELINES 


RULE  n 

TRY  TO  STRUCTURE  YOUR  PROGRAM 
AS  A  COLLECTION  OF  LIBRARY  UNITS 
RATIONALE: 

1.  LIBRARY  UNITS  ARE  INDEPENDENT 
COMPONENTS 

2.  SIMPLIFIES  SCOPE  AND  VISIBILITY 


COMPILATION  ORDER 


MAIN  with  with  with  with  with 

with  D  E  C  F  TEXT_T0 

B  F 

C 

O  0O0O 


RULE  H2 

PUT  THE  BODIES  OF  LIBRARY 
UNITS  IN  SECONDARY  UNITS 
RATIONALE: 

CHANGE  IMPLEMENTATION  OF  A 
LIBRARY  UNIT  WITHOUT 
RECOMPILING  UNITS  USING  IT 
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CREATING  SECONDARY  UNITS 
LIBRARY  UNITS: 

SUBPROGRAM  DECLARATION/BODY 

PACKAGE  DECLARATION 

GENERIC  DECLARATION/ INSTANTIATION 
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CREATING  SECONDARY  UNITS  (CONT) 
procedure  EXAMPLE (X:  INTEGER, 

Y;  STRING) 

is  separate ; 

function  SAMPLE (X:  INTEGER) 
return  STRING 


is  separate ; 


CREATING  SECONT^ARY  UNITS 
package  PROBLEM  is 

{declarations") 

!’  private 


fOTHER_DECLARATIONS } 


(CONT) 

SAME 

SOURCE 

FILE 


0 


end 

package  body  PROBLEM  is 


SAME 

COMPILATION 


— etc 


'> 
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M>-fll5S  779 


UNCLASSIFIED 


AN  INTRODUCTION  TO  ADA  (TRADEHARK)  FOR  SCIENTISTS  AND 
ENGINEERSIU)  ARNV  MATERIEL  SVSTEHS  ANALVSIS  ACTIVITY 
ABERDEEN  PROVING  GROUND  HD  H  E  COHEN  OCT  82 

F/G  9/2 


RULE  #3 

CREATE  A  SYSTEM  OF 
MEANINGFUL  TYPES 
FOR  YOUR  APPLICATION 
RATIONALE: 

1.  REDUCES  CODING  ERRORS 

2.  SIMPLIFIES  MAINTENANCE 

3.  IMPROVES  EXECUTION  EFFICIENCY 


CREATING  MEANINGFUL  TYPES; 
DEFINING  YOUR  TYPES 
package  MY_TYPES  is 
type  STOP_LIGHT  Is 

(READ,  YELLOW,  GREEN); 
type  DAY  is 

(MON,  TUE,  WED,  THU, 

FRI,  SAT,  SUN); 
end  MY  TYPES; 
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USING  YOUR  TYPES: 

MAKING  package  MY»TYPES  VISIBLE 
with  MY_TYPES ; 
procedure  C 

S IGNAL :  MY_TYP  ES . STOPL IGHT ; 
begin 
— etc. 
end  C; 


USING  YOUR  TYPES: 

DIRECT  VISIBILITY  FOR  INTERFACE  OF 
MY_TYPES 

with  MY_TYPES; 
use  MY_TYPES; 
procedure  C  is 

SIGNAL  ;  STOPLIGHT; 

— etc . 
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1. 


2. 

3. 

4. 

5. 


USING  YOUR  TYPES; 
OPERATIONS  AVAILABLE  ON  USER 
DEFINED  TYPES 

EXPLICITLY  DECLARED  SUBPROGRAMS 
HAVING  A  PARAMETER  OR  RfiSouT 
OF  THE  TYPE 
BASIC  OPERATIONS 
PREDEFINED  OPERATORS 
ENUMERATION  LITERALS 
ATTRIBUTES 


V 


4/*\, 


USING  YOUR  TYPES: 


IMPLICITLY  DECLARED  OPERATIONS 
BASIC  OPERATIONS  INCLUDE: 

1.  ASSIGNMENT  AND  INITIALIZATION 

2 .  MEMBERSJITP  TEXTS 

3.  QUALIFICATION  -  EG  DAY’ (MON) 

4.  EXPLICIT  TYPE  CONVERSION 

5.  IMPLICIT  TYPE  f=bf«. 

un:versal_real  and 

UNIVERSAL  INTEGER 


USING  YOUR  TYPES: 
EXPLICITY  DECLARED  OPERATIONS 
package  RATIONAL_NUMBERS  ts 
type  RATIONAL  .  .  . 
function  EQUAL  (X,Y:  RATIONAL)... 
function  "/"  (X.Y:  INTEGER)... 
function  "f"  (X.Y:  RATIONAL)... 

— etc 


» 
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DfcRIVED  TYPES 
ARE  A  CONVENIENT  WAY  TO 
CREATE  DISTINCT  TYPES 
EG: 

type  MEASURES  RATIONAL; 

DERIVES  SUBPivOGR^XMS  DECLARED 
WITH  THE  PARENT  TYPE 
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PITFALLS 

RECOMPILING  PACKAGE  SPEC  FORCES 
RECOMPILATION  OF  ALL  USING 
PROGRAMS 

—TO  ADD  MORE  RATIONAL 
OPERATIONS 

with  RATIONAL_NUMBERS; 
use  RATIONAL_NUMBERS; 
package  MORE_RATIONAL_OPS  ^ 
function  .  .  , 
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OUTSIDE  THE  LANGUAGE 
o  DIRECTORY  SYSTEM  FOR  ORGANIZING 
LIBRARY  irNITS 
(HIERARCHY  OR  RELATIONAL) 
o  LIBRARY  UNIT  MANAGEMENT 

SOURCE,  OBJECT,  EXECUTABLE 
MODULE 

NEW  AND  DERIVED  VERSIONS 
WHICH  PROGRAMS  USE  A  UNIT 
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ASSUMPTIONS  ABOUT  COMPILER 
o  UNUSED  SUBPROGRAMS  AND 
OBJECTS  ELIMINATED 
o  NO  SPACE  FOR  ENUMERATION 
LITERALS  UNLESS  DISPLAYED 
o  CONSTRAINTS  CHECKtO  ftX 
COMPILE  TIME  IF  POSSIBLE 
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RULE  .-U 

USE  A  PACKAGE  TO  ACHIEVE 
EFFECT  OF  FORTRAN  COMMON 
(GLOBAL  OBJECTS) 
package  COMMON 
A,B,C:  INTEGER; 
end  COMMON; 
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PACKAGE  DECLARATIVE  REGION 


7>ackage  WAT, DO 

X.Y:  ... 

end  WALDO; 


EXTEND  TO  SCOPE  OF 


-)  EXTEND  1 
ENCLOSE 


package  body  WALDO  is 

X.Y:  ... 

begin 

SEOEENCE  OF  STATEMENTS 


ING  DECLARATION 


EXIST 

THROUGHOUT 

WALDO 


DECLARATIVE 

SUBPROGRAM 

PACKAGE 

TASK 

GENERIC 


REGIONS 

ENTRY  &  ACCEPT 
RECORD 
RENAMING 
BLOCK  OR  LOOP 


:':o 


OVERLOADING 

OVERLOADING: 

USING  THE  SAME  IDENTIFIER  FOR 
TWO  OR  MORE  (HOPEFULLY  RELATED) 
MEANINGS,  WHERE  THE  MEANING 
IN  A  PARTICULAR  SITUATION  IS 
DETERMINED  FROM  THE  CONTEXT 
EXAMPLE: 

"+" (LEFT, RIGHT  ;  INTEGER) 
return  INTEGER; 

"+''(LEFT,  RIGHT  :  FLOAT) 
return  FLOAT; 
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SCOPE  VS  VTSTRTLTTY 
SCOPE  OF  A  DECLARATION: 

THE  LIFETIME  OF  ANY  ENTITY 
DECLARED  RY  THE  DECLARATION 
VISIBILITY  OF  AN  IDENTIFIER; 

IN  COMBINATION  WITH  OVERLOADING, 
ESTABLISHES  THE  MEANING  OF  THE 
OCCURENCE  OF  AN  IDENTIFIER 
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TAPE  (?8 


SCOPE  S  VISIBILITY 


assignment 

1.  CREATE  A  PACKAGE  THAT 
IMPLEMENTS  THE  CALCULATOR 
FUNCTIONS 

2.  CREATE  A  MAIN  PROCEDURE 
THAT  HANDLES  TERMINAL  I-O 
AND  USES  THE  CALCULATOR 
PACKAGE 

3.  SEPARATELY  COMPILE  BODIES  OF 
ALL  FUNCTIONS  AND  PROCEDURES 
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LABORATORY  #3 

OR.IFXTTVES; 

1.  EXPERIMENT  WITH  PROCEDURE 
AND  FUNCTION  DEFINITIONS 

2.  DEFINE  A  PACKAGE 

3.  EXPERIMENT  WITH  SEPARATE 
COMPILATION 
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LABORATORY  //3 
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SITMMARY 

1.  MAKE  SUBSYSTEMS  LIBRARY  UNITS 

2.  SEPARATELY  COMPILE  LIBRARY 
BODIES 

3.  USE  MEANINGFUL  TYPES 

4.  PUT  GLOBALS  IN  PACKAGE (S) 

5.  COMMUNICATE  VIA  PARAMETERS 


RULE 

PASS  INFORMATION  THROUGH 
PARAMETERS  RATHER  THAN 
USING  GLOBAL  OBJECTS 
COMMENTS : 

1.  DON'T  ASSUME  COMMUNICATING 
THROUGH  GLOBAL  OBJECTS  IS 
MORE  EFFICIENT 

2.  RESTRICT  VISIBILITY  OF 
GLOBAL  DATA 


USING  NESTED  PACKAGES  (CONT) 


ii 

with  COMMON; 
use  COMMON ; 
procedure  R  ^ 
use  BLOCK_l; 

— etc 
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USING  NESTED  PACKAGES 
with  COMMON; 

^  procedure  R  is 

use  COMMON . BLOCK_l ; 

—COULDN'T  SAY  IN  CONTEXT 
—CLAUSE  BECAUSE  NOT 
—LIBRARY  LTJIT  SIMPLE_NAME 


NESTED  PACKAGES 


package  COMMON  ^ 
package  BLOCK_l  ^ 
A.B.C  :  INTEGER; 
end  BLOCK_l; 
package  BLOCK_2 
X.Y.Z  ;  FLOAT; 
end  BLOCK  2 


end  COMMON 


BLOCK  DECLARATIVE  REGION 


WALDO  :  declare 


A  :  ... 

B  :  ... 

SCOPE 

SCOPE 

begin  .  .  . 

OF 

OF 

exception  .  .  . 

A 

B 

end  WALDO; . — 

.... 

« 


fl 


il 

QUALIFIED  NAMES 

procedure  P 

^  A,B  :  BOOLEAN; 

procedure  0  l_s 
C  :  BOOLEAN; 

B  :  BOOLEAN;  —HOMOGRAPH  OF  P.B 
begin  .  .  , 

!  B:=A;  — O.B:=P.A; 

•  C  :=  P.B;  — Q.C  :=  P.B; 


fl 
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NESTING  HIERARCHY 


package  STANDARD  is 

BOOLEAN,  CHARACTER,  INTEGER,  .  . 
package  CALENDAR  ^  separate 
package  TEXT_I0  separate 


TEXT-IO 


CALENDAR 


COMPONENT  LIBRARY 
o  LIBRARY  UNITS  ARE  IMPLICITLY 
DECLARED  IN  PACKAGE  STANDARD 
—TO  MAKE  A  LIBRARY  UNIT  VISIBLE 
with  LIBRARY_L’NIT_SIMPLE_NAME; 
—NOTE  IMPLICATION  THAT  STANDARD 
HAS  IWSUAL  BEHAVIOR 


COMPONENT  LIBRARY  fCONT) 
PROGRAM  LIBRARY  INCLCTFS  LIBRARY 
UNITS  AND  SECONDARY  UNITS 
SECONDARY  UNITS  ARE  SEPARATELY 
COMPILED  SUB-UNITS  OF  LIBRARY 
UNITS  )R  OTHER  SECONDARY 
UNITS 

LIBRARY  UNIT  SIMPLE  NAMES  MUST 
BE  UNIOUF 


LIBl.LiB3  LIB2.LIB3 
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USE  CLAUSE 

o  ACHIEVES  DIRECT  VISIBILITY  OF 
DECLARATIONS  IN  VISIBLE  PARTS 
OF  NAMED  PACKAGES 
package  D  is 

T,U,V  :  BOOLEAN;  ~|  VISIBLE 

procedure  P  .  .  .  -  PART 

procedure  0  .  .  . 
end  D; 
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USE  CLAUSE  (CONT) 

0  USE  CLAUSE  AFFECTS  VISIBILITY 
BUT  NOT  SCOPE  ! 

o  SPECIAL  CASES  GUARANTEE  THAT 
USE  CANNOT  HIDE  AN  OTHERWISE 
DIRECTLY  VISIBLE  DECLARATION: 
—DIRECTLY  VISIBLE  HOMOGRAPHS 
HAVE  PREFERENCE 
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USE  AND  RENAMES 


USE  CLAUSE  SHOULD  BE  VIEWED 
AS  A  CONVENIENT  SHORTHAND 
R«)4AV\l»i<5_pErLARATinN  ;:  = 
TDFMTTFTER  :  TYPE_MARK 
renames  OBJECT  NAME; 

I  iDENTIFTER  :  exception 
renames  EXCP_N/\ME; 

I  package  IDENTIFIER 
renames  PACK_NAME; 

I  SUBPROG_SPEC 

renames  SUB  PROG  OR  ENTRY 


RENAMING  (CONT) 
RENAMING  DOES  NOT  HIDE  THE 
OLD  NAME 

OBJECTS  OF  ANONYMOUS  TYPE 
CANNOT  BE  RENAMED 
SUBTYPE  CAN  BE  USED  TO 
ACHIEVE  EFFECT  OF  RENAMING 
TYPE: 

subtvpe  MODE  Is 


TEXT  10. FILE  MODE; 


OVERLOADING  RULES 
o  DETERMINE  ACTUAL  MEANING  OF 
IDENTIFIER  WHEN  VISIBILITY  RULES 
SHOW  MORE  THAN  ONE  MEANING 
IS  ACCEPTABLE 

o  ERR  ON  CONSERVATIVE  SIDE  - 
GIVE  ERROR  IF  NOT  ONE 
CLEARLY  CORRECT 
INTERPRETATION 
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RESOLVING  OVERLOADING  CONFLICT^ 
o  USE  EXPANDED  NA>‘ES  WITH  DOT 
NOTATION.  EG 

MY_ARITH.STNE  (X  :  FLOAT)  .  .  . 
o  USE  QUALIFIED  NAMES 

REAL’ SINE  (X  ;  FLOAT)  .  .  . 


214 


SLTMMARY  OF  SCOPE  AND  VISIBILITY 
o  DECLARATIONS  ASSOCIATE  IDENTIFIERS 
WITH  ENTITIES 

o  OFTEN,  STORAGE  ALLOCATION  IS 
A  SIDE  EFFECT 

o  IDENTIFIERS  CAN  HIDE  OTHER 
IDENTIFIERS 

o  GOAL  IS  TO  MINIMIZE  BOTH  SCOPE 
AND  VISIBILITY 

—SCOPE  RESTRICTIONS  SAVE  MEMORY 
—VISIBILITY  RESTRICTIONS  MINIMIZE 
ERRORS 
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Ada  RECORDS  VS 
FORTRAN,  COBOL,  DMS  RECORDS 
o  "RECORD"  HISTORICALLY  USED  IN 
A  PHYSICAL  SENSE  - 
A  RECORD  ON  A  STORAGE  DEVICE 
o  A^  RECORDS  ARE  AN  ABSTRACTION  - 
A  LOGICAL  GROUPING  OF  COMPONENTS 
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MODF.LINO  REALITY 


type  HOUSEHOLD 

(NLU^BER_MEMBFRS ;  POSITIVE 

is  record 

HOME  :  DWELLINO  ; 

MEMBERS  ;  array  (  I  .  • 
NLTIBER_MEMRERS) 
of  PERSON; 


end  record; 


USE  COMPOSITE  TYPES 
TO  MODEL  REALITY 


type  PERSON  ^  record  .  .  , 
subtype  STUDENT  PERSON; 
type  CLASS  array  (POSITIVE 
rangeO)  of  STUDENT; 
type  HOUSEHOLD 

(NUMBER_MEMBERS; POSITIVE  :=1) 
Is  record  .  ,  . 


FIXED  LENGTH  VS  VARIABLE  LENGTH 
RECORDS 

RECORD  TYPES  WITH  NO  DISCRIMINANT 
OR  A  CONSTRAINED  DISCRIMINANT 
DEFINE  A  SET  OF  INDENTICAL  OBJECTS 
RECORD  TYPES  WITH  UNCONSTRAINED 
DISCRIMINANT  DEFINE  LOGICALLY 
RELATED  BUT  (POTENTIALLY) 

DIVERSE  SET  OF  OBJECTS 
UNCONSTRAINED  RECORDS  CAN  BE 
ARRAY  COMPONENTS 


FIXED  length  vs  VARIABLE  LENGTH 
ARRAYS 

o  NUMBER  OF  ARRAY  COMPONENTS 
DETERMINED  AT: 

-  COMPILE  TIME  IF  INDEX 
CONSTRAINT  IS  STATIC 

-  TYPE  DECLARATION  ELABORATION 
IF  INDEX  CONSTRAINT  IS  DYNAMIC 

-  OBJECT  CREATION  FOR 
UNCONSTRAINED  ARRAYS 

o  ALL  ARRAY  COMPONENTS  ARE  SAME 
SUBTYPE 
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COMPOSITE  TYPES 
A  TYPE  WHOSE  VALUES 
HAVE  COMPONENTS 
o  ARRAYS 
o  RECORDS 
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TAPE  #9 


RECORD  ABSTRACTION 


Next  page  intentionally 

LEFT  BLANK. 


217 


^  t  h 


package  X  is 
procedure  Y  is 
begin 
declare 


declare 

procedire  Z  is 
dec lare 

procedure  Z  is 


Zlf'e 


with  TEXT_IO;  TTY_IO; 
use  TEXT_IO;  TTY_IO; 
procedure  P  is 

package  REAL_IO  is 
new  FLOAT_IO 
(FLOAT) ; 

I:  INTEGER; 
begin 

GET  (I); 
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procedure  X  is 
I  :  INTEGER 
for  I  in  1..10  loop 

exit  when . 

end  loop 
PUT  (I); 
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package  TEST  IS 
X  :  INTEGER; 
procedure  y  is 
X:  INTEGER; 
begin 

end 

end  y ; 
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Ada  RFCORDS  VS 
FORTRAN,  COBAL,  DMS  RECORDS 
TERMINOCOGY  FROM  THE  PAST 
o  FIXED  LENGTH  RECORD 
o  VARIART.F  LENGTH  RECORD 
o  RECORD  TYPE 
o  REPEATING  GROUP 
o  MASTER  AND  DETAIL  RECORDS 
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Ada  RECORDS  VS 
FORTRAN,  COBOL,  DMS  RECORDS 

1.  EACH  "OLD"  RECORD  IS  A 
POSSIBLE  IMPLEMENTATION  OF 
AN  ABSTRACT  TYPE 

2.  EACH  "OLD"  RECORD  CAN  BE 
DESCRIBED  IN  Ada 
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m 
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EXAMPLES: 

VARIABLE  LENGTH  RECORD 
type  VAR  (LENGTH  : 
POSITIVE  :=  l) 

Is  record 
V  •  STRING  (J  .. 
end  record ; 
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EXAMPLES : 

MULTIPLE  RECORD  TYPES 
subtype  RECORD_IO  Is 
INTEGER  range  1..99; 
type  RECORDS  (KIND  :  RECORD_ID) 
is  record 
case  KIND  is 

when  1  =>  .  .  . 
when  2  ^  . 


end  case ;  end  record 


EXAMPLES 


subtype  REC0RD_1D  is 

(FAMILY,  HOUSE,  HEAD_OF_HOUSE , 
SPOUSE,  CHILD,  JOB,  .  .  .) 
tvpe  RECORDS  (KIND :RECORD-ID) 


INPUT  -  OUTPUT 

FOR  FILES  CONTAINING  ELEMENTS 
OF  A  GIVEN  TYPE,  USE  GENERIC 
SEOUENTIALJCO 
DIRECT  10 


N 

/ 


SPECIFICATION  OF  THE 
package  DIRECT_I0 
with  I0_exCe.PTVOKS* 
generic 

type  ELEMENT_TYPE  private  * 
package  DIRECT_I0  is 

type  FILE_TYPE  limited  private j 
type  FILE_MODE  ^ 

(1N_FILE,  INOUT_FILE,  OUT_FILE) ; 
type  COUNT  ^  range 

0. . iMPLEMENTATION_DEFINED; 
subtype  POSITTVE_COUNT  U 
COUNT  range  1 .. COUNT ' LAST ; 
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FILE  MANAGEMENT 
procedure  CREATE 

(FILE  :  out  FTLE_TYPE; 

MODE  :  FILE_MODE  :=  INOUT_FTLE; 

NAME  :  jri  STRING  :=■  " 

FORM  :  jjri  STRING  ;=  "  ") ; 

procedure  OPEN 

(FILE  :  o^  FILE_TYPE; 

MODE  ;  FILE_MODE; 

NAME  :  In  STRING; 

FORM  :  In  STRING  "  '•) ; 
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FILE  MANAGEMENT  (CONT) 
procedure  CLOSE 

(FILE  :  FILE_TYPE); 

procedure  DELETE 

(FILE  :  jm  o^  FILE_TYPE) ; 
procedure  RESET 

(file  :  out  FILE_TYPE; 

MODE  :  FILE_MODE) ; 

procedure  RESET 

(FILE  :  in  out  FILE  TYPE) 


FILE  MANAGEMENT  (CONT) 
function  MODE 

(FILE  :  FILE_TYPE'> 

return  FILE_MODE; 
function  NAME 

(FILE  :  i£  FILE_TYPE') 
return  STRING; 
function  FORM 

(FILE  :  i£^  FILE_TYPE) 
return  STRING; 
function  IS__OPEN 

(FILE  :  l£  FILE_TYPE) 
return  BOOLEAN; 
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INPUT  AND  OUTPUT  OPERATIONS 
procedure  READ  (FILE  :  iui  FILE_TYPE; 
ITEM  ;  ELEMENT_TYPE; 

FROM  :  POSITIVE_COUNT) ; 
procedure  READ  (FILE  :  Jui  FILE  TYPE; 

ITEM  :  ELEMENT_TYPE)  ; 

procedure  WRITE  (FILE  :  Jui  FILE_TYPE 
ITEM  :  ^  ELEMENT_TYPE; 

TO  :  POSITIVE_COUNT) ; 
procedure  WRITE  (FILE  :  U\  FTLE_TYPE 
ITEM  ;  in  ELEMENT  TYPE); 
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INPUT  AND  OUTPUT  (CONT) 
procedure  SET_INDEX 
(FILE  :  ^  FILE_TYPE; 

TO  :  POSITIVE_COUNT) ; 

function  INDEX (FILE  :  ^  F1LE_TYPE) 
return  POSITIVE_CnUNT; 
function  SIZE  (FILE  :  FILE_TYPE) 

return  COUNT; 
function  END_OF_FILE 
(FILE  :  jjT  F1LE_TYPE) 
return  BOOLEAN; 
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EXCEPTIONS 


STATUS  ERRORS:  exception  renair^es 
IO_EXCEPTIONS . STATUS_ERROR; 
MODE_ERROR  : exception  renames 
IO_EXCEPTIONS .MODE_ERROR 
NANE  ERROR:  exception  renames 
IO_EXCEPTIONS .NAME_ERROR; 

USE_ERROR  : exception  renames 
IO_EXCEPTIONS .USE_ERROR; 
DE\"ICE_ERROR  :  exception  renames 


10  EXCEPTIONS. DEVICE  ERROR; 


EXCEPTIONS  (CONT) 
END_ERROR  :  exception  renames 
10_EXCEPTTONS .  END_ERROR; 
^ATA_ERR0R  :  exception  renames 
IO_EXCEPTIONS, DATA_ERROR; 
private 

—  imp Lemencac ion-dependent 
Pnd  DIRECT_in; 
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ATTRIBUTES  (CONT) 


P' LARGE  =  2.0**P'EMAX 

—MAX  REO  EXP 
(1. 0-2. 0**(-P ’MANTISSA)) 
P' MANTISSA  P 'MANTISSA 

,i.o-.*ooo. .  .or,  =  ;  111. '..11' 

'  (-P'MANTISSA) 


1. 0-2.0 


ATTRIBUTES  (CONT) 
o  P'EPSILON  =>  2.0**(1-P'><ANTISSA) 

p ’MANTISSA 

' - - *1 

(l.O+EPSILON)  =  .100  ...  1*2 

1.0  -  .100  ...  0*2^ 

EPSILON  =  .000  ...  1*2^ 

:rP 'MANTISSA  ..1 

a  /  *  2 

=»  2. 0**a-P ’MANTISSA) 
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« «i « I 


o  P'DIGITS 

o  P'MANTISSA 

o  P'EMAX 

o  P' EPSILON 

o  P' LARGE 

0  P' SMALL 


ATTRIBUTES 

it  DECIMAL  DIGITS  IN 
MANTISSA 

it  BINARY  DIGITS  IN 
MANTISSA 

4*P ’MANTISSA  -  REQ 
EXPONENT  RANGE 
MODEL  NLTMBERS  ARE  1.0 
&  1.0  +  EPSILON 
LARGEST  NUM.BER  OF 
SUBTYPE  P 

SMALLEST  NUMBER  OF 
SUBTYPE  P 
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DEFINING  DECIMAL  REALS 


type  REAL  ^  digits  7 ; 

— B  s  D*log2lO  -  D*3.3219... 

--B  =■  23. 2533... ->  24  bit  MANTISSA 
— 4*B  =93  =>  7  bit  EXPONENT 
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A 


HOLE  AROUND  ZERO 


-.1001*2"^^ 

-.1000*2“’-^ 

1  A  =  2-™ 

0 

.1000*?"^^  . 

1 

<N 

II 

A 

.1001*2“^^ 

BE  CAREFUL  SUBTRACTING  TWO 
NEARLY  EQUAL  NUMBERS 
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FLOATING  POINT 
1.0 


.1  .♦  .6  .a 

1  1  1  1  1  1  1 

Ul 

1.4  1.4  >.a 

— 1 —  1  I-  J  11  1 

1 

1  1  1  1  I  1  1  1 

r 

1 

I 

1 

1 

( 

1 

1 

LL 

_ 1 _ i _ *  »  4  >  I  t _ 

Lb 

MODEL  NUMBERS  ARE 


sign*MANTISSA*2 


exponent] 


J 


H  i  MANTISSA  <  1 
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INTEGERS 


type  MY_INTEGER 

is  range-32  768.. ->■  32_767— 16  BITS 
MIGHT_MEAN 

type  X  new  INTEGER;  — 32  BITS 
type  MY_INTEGER  Is  X  range 
-32_768. .+32_767; 

MODEL  INTEGERS  EXACTLY 
REPRESENTED  IN  HARDWARE 
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THEORY  AND  IMPLEMENTATION 


\ 


\ 


RANGE  CONSTRAINTS 


SUBTYPES  OF 
PREDEFINED 
NUMBERS 


\  REPRESENT 

\  \ 


\ 

\  \ 
— ^ 


HARDWARE  ''  ^ 
REPRESENTATION 


NUMERIC  TYPES 
UNTVERSAr._INTEGER 

INTEGER  — REOIURED 

LONG_INTEGER  —OPTIONAL 

SHORT_INTEGER  — OPTIONAL 

L'NIVERSAL_Re.AL 
FLOAT 
FIXED 


<• 
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1 


i 


TAPE  <»10 


NUMERIC  ABSTRACTION 


Next  page  intentionally 
left  blank. 
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SUMMARY 


Ada  RECORDS  ARE  VERY  FLEXIBLE 
USEFUL  FOR  MODELINO  REALITY 
CAN  BE  USED  FOR  FILE  I-O 


Next  page  is 
left  blank. 


intentionally 


I 


ii 


ATTRIBUTES 

’  X'  CONSTRAINED 

^  ^  TRUE  IF  X  IS  CONSTANT 

OR  HAS  CONSTRAINED 
DISCRIMINANT,  FALSE 

;  OTHERWISE 

[,  ALSO;  BASE,  FIRST  BIT,  LAST  BIT, 

POSITION,  SIZE 
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NAMING  AND  COMPONENT  SELECTION 


X.Y.Z 

TO  SELECT  COMPONENT  Z 

record  y,  which 

IS  A  COMPONENT  OF  X 


ATTRIBUTES  (CONT) 


P’ BASE 'etc 


P' MACHINE 


P'SAFE 


— EMAX,  LARGE,  SMALL 
—FOR  BASE  TYPE 
—EMAX,  EMIN 
—MANTISSA 
— MACHINE_OVERFLOWS 
— MACHINE_RADIX 
— MACHINE_ROUNDS 
—EMAX,  LARGE,  SMALL 


ATTRIBUTES  (CONT) 


o  P ' SAFE_ 

-EMAX,  LARGE,  SMALL 

P'BASE'EMAX 

<= 

P’SAFE_EMAX 

P' BASE ’SMALL 

>  = 

P’SAFE_SMALL 

P' BASE 'LARGE 

<  = 

P'SAFE  LARGE 
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DERIVED  TYPES 


DERIVED  TYPE  DEFINITION  ::= 
new  subtype  INDICATION 
SET  OF  VALUES  FOR  DERIVED  TYPE 
IS  COPY  OF  VALUES  OF  PARENT  TYPE 
CORRESPONDING  BASIC  OPERATONS , 
LITERALS,  PREDEFINED  OPERATORS, 
DERIVABLE  SUBPROGRAMS 
EXPLICIT  TYPE  CONVERSIONS 


DERIVED  TYPES  VS  SUBTYPES 
SUBTYPES  RESTRICT  THE 
SET  OF  VALUES; 

IMPLICIT  CONVERSION  AVAILABLE 
DERIVED  TYPES  ERECT  A  WALL 
SAME  SET  OF  VALUES 
DIFFERENT  ABSTRACT  MEANING 
EXPLICIT  CONVERSION  REQUIRED 


WHY  DERIVED  TYPES  FOR  NUMBERS 
o  USER  SPECIFIES  ABSTRACT  VALUES 
o  COMPILER  CHOOSES  MOST 
APPROPRIATE  MODEL  TYPE 
o  TWO  TYPES  DERIVED  FROM  SAME 
MODEL  TYPE  ON  ONE  MACHINE 
MAY  USE  DIFFERENT  MODELS 
ON  ANOTHER  MACHINE 
o  CONVERSIONS  BETWEEN  HARDWARE 
TYPES  MAY  BE  EXPENSIVE 
SHOULD  BE  EXPLICITLY  REQUESTED 


MANY  OBJECTS  OF  SAME  TYPt. 
tvpg  MEASITREMENTS 

is  digits  3  — FLOAT 
range  0.0  ..  MEASUREMENTS ' LARGE 
A.P  ;  MEASUREMENTS; 

C:  MEASUREMENTS: 
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OBJECTS  OF  DIFFERENT  TYPES 
type  LENGTH 

is  digits  5  — ^i^  FLOAT 

range  0.0  . .  100.0 

A  :  MEASUREMENTS;  )  BOTH  DERIVED  FROM 
B:  LENGTH;  >  FLOAT  ON  THIS 

\  MACHINE 


FIXED  POINT  TYPES 


LOR 
- 1  f  H — I — h  'l~~r  I — I — i — i — I — [ 

type  T  delta  D  range  L. .R; 
CANONICAL  FORM  :  :=• 
SIGN*MANTISSA*SMALL 
MANTISSA  IS  POSITIVE  INTEGER 
MODEL  NUMBERS  CHOOSE  SMALL  AS 
SMALL  -  2^  6  D  S  2^“^^ 

—OR  AS  DEFINED  IN  LENGTH  CLAUSE 
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MODEL  FIXED  POINT  NUMBERS 


L 

1  , 

R 

.  1 

1  ' 

0 

o  MODEL  NUMBERS  INCLUDE  ZERO 
o  SMALL  =  2^^D<  2^"^^ 
o  BOTH  'L  AND  'R  MUST  BE  WITHIN  SMALL 
OF  A  MODEL  NUMBER 

o  CHOOSE  SMALLEST  NL'MBER  OF  BITS  IN  MANTISSA 
-(B)  SUCH  THAT  -1  *  2®"^*  SMALL  i  L 
2®"^*  SMALL  >  R 

AND  (B)  IS  SMALLEST  SUCH  INTEGER 


FIXED  POINT  VS  FLOATING  POINT 


FIXED  POINT 

FLOATING 

W/DELTA*2 

POINT 

1  (*2"^) 

.100..  *2"^ 

2  (*2"'^) 

.100..  *2"^ 

3  (*2*^) 

.110..  *2"^ 

0  or  1 

r.i  *2“^ 

0 

L.l  *2"^ 

0 


0.000 


WORKING  WITH  VERY  SMALL  NUMBERS 


FLOATING  NUMBER  NEAREST  ZERO 


=  P'SAFE_SMALL 
CHOOSE  DELTA  =  T  2“^ 


P'SAFE  EMAX  +  3 


THEN  P'SAFE  SMALL  =  50*DELTA 


WORKING  WITH  VERY  LARGE  NUMBERS 


10  *  P'SAFE  LARGE  =  20*DELTA 
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PREDEFINED  OPERATIONS 
o  ADDITION  AND  SUBTRACTION 
OPERANDS  MUST  BE  SAME  TYPE 
o  MULTIPLICATION  AND  DIVISION 
OPERANDS  OF  SME  TYPE 
ANY_FIXED_PT  *  INTEGER 
ANY_FIXED  *  ANY_FIXED  => 
UNIVERSAL_FIXED 
o  EXPONENTIATION 

INTEGER  TO  INTEGER  POWER 
FLOAT  TO  INTEGER  POWER 
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CONVERSION 

o  EXPLICIT  TYPE  CONVERSION  DEFINED 
AMONG  ALL  NUMERIC  TYPES 
o  LITERALS  ARE  EITHER 
UNIVERSAL  INTEGER  OR 
UNIVERSAL  REAL  AND  IMPLICITLY 
CONVERTED  TO  TYPE  OF 
EXPRESSION  WHERE  USED 
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ABERDEEN  PROVING  GROUND  HD  H  £  COHEN  OCT  83 

F/G  9/2 


UNCLASSIFIED 


NL 


ATTRIBUTES  OF  FIXED  POINT  TYPES 
T' DELTA  REQUESTED  FIXED 

ACCURACY 

T' SMALL  SMALLEST  POSITIVE  MODEL 

NUMBER 

T' MANTISSA  NUMBER  BINARY  DIGITS 
IN  MODEL  NUMBERS 

T' LARGE  LARGEST  MODEL  NUMBER 

CHAR'S  IN  DECIMAL 
REPRESENTATION  BEFORE 
AND  AFTER  DECIMAL 
POINT 


TFORE 

T'AFT 


I 


I  ATTRIBUTES  OF  FIXED  POINT  TYPES 

T'SAFE  SMALL  SMALLEST  POSITIVE 

NUMBER  OF  BASE 
TYPE  OF  T 

,  T'SAFE  LARGE  LARGEST  NUMBER  OF 

BASE  TYPE 

T'SAFE  SMALL  *  T' BASE 'SMALL 

T'SAFE  LARGE  *  T' BASE 'LARGE 

t  T 'MACHINE  ROUNDS  BOOLEAN 

T' MACHINE  OVERFLOWS  r TRUE  IF  ALWAYS 

)  RECOGNIZES 
/  NUMERIC_ERROR 

i 


m 


» 


» 

270 
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WHY  POWER  OF  TWO  FOR  DELTA 
type  RULER  ^  delta  2** (-4) 
range  0.0  . .  36.0; 
type  INCHES  new  INTEGER 
range  0  . .  36 ; 

FINE_MEASURE  ;  RULER; 
APPROX_MEASURE  :  INCHES; 
FINE_MEASURE  (APPROX_MEASURE) 
—LEFT  SHIFT  4 

APPROX_MEASURE  (FINE_MEASURE1 
—ADD  8/16  AND  RIGHT  SHIFT  4 


alternate  values  for  t' small 

type  ENGLISH  is  delta  1.0/(12.0*16.0) 
range  0.0  ..  MAX_INT/1024; 
for  ENGLISH'SMALL  ^  1.0/(12.0*16.0) 
delta  1.0/12.0; 
type  FEET  ^  new  INTEGER 
—EVERY  SIXTEENTH  MODEL  NUMBER 
—OF  ENGLISH  IS  A  MODEL  NUMBER 
—OF  INCHES 
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ALTERNATE  VALUES  FOR  T' SMALL 
type  MONEY  ^  delta  1.0/1000.0 
range  0.0  ..  MAX_INT/1024 ; 
for  MONEY' SMALL  1.0/1000.0; 

subtype  PENNIES  MONEY 
delta  1.0/100.0; 
subtype  DIMES  ^  MONEY 
delta  1.0/10.0; 
subtype  OUARTERS  MONEY 

delta  1. 0/4.0; 
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SUMMARY  OF  FIXED  POINT 
FIXED  POINT  PROVIDES  FOR  RATIONAL 
ARITHMETIC  ON  MODEL  NUMBERS 
COMMON  DENOMINATOR  IS 
1/T' BASE' SMALL 

ADDITION  AND  SUBTRACTION  ARE 
EXACT  AS  LONG  AS  ACTUAL  VALUES 
ARE  MODEL  NUMBERS 


SUMMARY  OF  FIXED  POINTS  (CONT) 


o  DEFAULT  T' BASE 'SMALL  IS  POWER 
OF  TWO,  WHICH  IS  EQUIVALENT 
TO  FLOATING  POINT  WITH 
CONSTANT  EXPONENT 
o  MULTIPLICATION  AND  DIVISION 
PRODUCE  UNTVERSAL_REAL, 

WHICH  MUST  BE  CONVERTED 
o  CONVERSION  CAN  INTRODUCE 
ROUNDOFF  ERRORS  UNLESS 
SOURCE  AND  TARGET  DERIVED 
FROM  SAME  BASE  TYPE 
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SUMMARY 

0  NUMERIC  TYPES  ARE: 
INTEGER 

FLOAT  j  REAL 

FIXED 

o  USER  DEFINED  TYPES  ARE 
DERIVED  FROM  BUILT-IN 
(HARDWARE)  NUMERIC  TYPES 
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LABORATORY  <'/4 


LABORATORY  #4 

OBJECTIVES: 

1.  IMPLEMENT  PARENTHETICAL 
EXPRESSIONS  IN  YOUR  HAND 
CALCULATOR  USING  A  RECORD 
WITH  DISCRIMINANT  TO  SAVE 
INTERxMEDIATE  RESULTS 

2.  ADJUST  "IS  DIGITS"  UNTIL 
YOU  CAN  DEMONSTRATE 
ROUND-OFF  ERROR 

» 
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ASSIGNMENT 

1.  IMPLEMENT  PARENTHETICAL 
EXPRESSIONS  IN  YOUR  HAND 
CALCULATOR  USING  A  RECORD 
WITH  DISCRIMINANT  TO  SAVE 
INTERMEDIATE  RESULTS 

2.  ADJUST  "IS  DIGITS"  UNTIL 
YOU  CAN  DEMONSTRATE 
ROUND-OFF  ERROR 
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Next  page  intentionally 
left  blank. 


TAPE  m 


REVIEW 


Pext  page  intentionally 

LEFT  BLANK. 


STACK  (CONT) 
package  body  STACK  J_s 
tvpe  TABLE  array 

(POSITIVE  ran^eO)  of  ITEM; 
SPACE  ;  TABLEd.  .SIZE)  ; 

INDEX  :  NATURAL  :=  0',; 
orncpdure  PUSHIE;  ITEM)  is 
be^ln 


297 


GENERIC  STACK 

generic 

SIZE  :  POSITIVE; 
type  ITEM  private ; 

package  STACK  is 

procedure  PUSH  (E:  1^  ITEM) 
procedure  POP  (E:  out  ITEM) 
OVERFLOW,  UNDERFLOW  :  excep 


end  STACK 


PACKAGE  ON«VECTORS  (CONT) 
function  SIGMA (A:  VECTOR) 
return  ITEM  is 
TOTAL  :  ITEM  :=  A(A’ FIRST); 
—THE  FORMAL  tvpe  ITEM 
begin 

for  N  Ln  A' FIRST+1 . . A' LAST  loop 
TOTAL  SUMITOTAL.ACN)) ; 

*  —THE  FORMAL  function  SUM 

end  loop ; 
return  TOTAL; 
end ; 
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PACKAGE  ON.VECTORS  (CONT) 

begin 

1^  A 'LENGTH  /»  B' LENGTH  then 
raise  LEn<GTH_ERROR; 
end  if ; 

for  N  in_  A'RANGE  Loop 

RESULT(N) :=SUM(A(N) ,B(N+BIAS)) 
—THE  FORMAL  function  SUM 
end  loop; 
return  RESULT; 
end; 
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PACKAGE  ON_VECTORS  (CONT) 
function  SUM  (A,B:  VECTOR) 
return  VECTOR  i^ 

RESULT  :  VECTOR  (A'RANGE); 

—THE  FORMAL  type  VECTOR 
BIAS  ;  constant 

INTEGER  ;=B'FIRST  -  A'FIRST; 


GENERIC  INSTANTIATION 
package  INT_VECTOR  new 
ON«.VECTORS 
(INTEGER, 

TABLE, 
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ON^VECTORS  (CONT) 
package  ON_VECTORS  is 

function  SUM  (A.B:  VECTOR) 
return  VECTOR; 
function  SIGMA  (A: VECTOR) 
return  ITEM; 

LENGTH  ERROR:  exception  • 
end ; 
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GENERIC  EXAMPLE 

generic 

type  ELEM  private ; 
procedure  EXCHANGE 
(U,V:  IjT^  out  ELEM); 
procedure  EXCHANGE 

lU.V:  l£  o^  ELEM)  j_s 
T;  ELEM; 

begin  T:=U;  U:=V;  V:=T; 


GENERICS 


DEFINE  A  TEMPLATE  FOR  EITHER 
SUBPROGRAMS  OR  PACKAGES 
GENERIC  FORMAL  PARAMETERS  CAN  BE 
o  OBJECTS 
o  TYPES 
o  SUBPROGRAMS 
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TAPE  #12 


GENERICS 


KEY  TERMS  (CONT) 


[ 

I 

u 

\ 

r 
y 

o  ABSTRACT  VS  PHYSICAL 

f,.  REPRESENTATION 

[  o  NUMERIC  EXCEPTIONS 

I  o  ATTRIBUTES  OF  NLXBERS 

I  o  BINDING  -  BINDING  TIME 

!•  o  SOFTWARE  COMPONENT 


m  • 


■ 

285 

L  .  ^  .  ........... 


I 


A 


KEY  TERMS  (CONT) 
o  DISCRETE  RANGE 
o  CONSTRAINED  VS  UNCONSTRAINED 
o  WHOLE  RECORD  ASSIGNMENT 
o  UNIVERSAL  REAL 
o  L'NTVERSAL  INTEGER 


H 


f| 
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KEY  TERMS 


SYNTAX  DIAGRAMS 
DERIVED  TYPES  VS  SUBTYPES 
OVERLOADING  VS  HIDING 
USE  VS  WITH 
DISCRIMINANT 
TYPE  MARK 


(I 

[ 

L 


k 

k 


STACK  (CONT) 

procedure  PUSH(E:  Iri  ITEM)  Is 
begin 

INDEX  >=  SIZE  then 
raise  OVERFLOW; 
end  ii ; 

INDEX  INDEX  +  1; 

SPACE (INDEX)  E; 
end  PUSH; 
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STACK  (CONI') 


procedure  POP(E:  out  ITEM)  Is 
begin 

INDEX  =  0  then 
raise  UNDERFLOW; 
end  if ; 

E  :=  SPACE ( INDEX) ; 

INDEX  :=  INDEX  -  1; 
end  POP; 
end  STACK 


STACK  (CONT; 

package  STACK_INT  ^  new 
STACK(SIZE  *>200, 

ITEM  *>INTEGER); 
package  STACKJOOL  new 
STACK (100,  BOOLEAN); 
STACK_INT.PUSH(N); 

STACK  BOOL. PUSH (TRUE); 
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STACK  (CONT) 


generic 


type  ITEM  ^  private 
•jackage  ON_STACKS  is 
type  STACK(SIZE  :  POSITIVE) 

Is  limited  private; 
procedure  PUSH{S  :  i^  out  STACK; 
E  ;  ^  ITEM); 

procedure  POP(S  :  lii  out  STACK; 

E  :  ou£  ITEM) ; 

OVERFLOW,  UNDERFLOW  :  exception  • 
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STACK  (CONT) 

private 

type  TABLE  ^  array 

(POSITIVE  rangeO)  of  ITEM; 
type  STACKCSIZE  :  POSITIVE)  ^ 
record 

SPACE  :  TABLE(1..SIZE); 
INDEX  :  NATURAL  0; 
end  record ; 
end; 
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STACK  (CONT) 

declare 

package  STACK  REAL  new 
ON_STACKS (REAL) ; 
use  STACK_REAL; 

S  :  STACK (100); 
begin 


PUSH(S,  2.54); 


end ; 
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GENERIC  INSTANTIATION 
INSTANTIATED  IN  SCOPE  OF 
DECLARATION,  NOT  WHERE 
IT  IS  INSTANTIATED 
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SU>fMARY  OF  GENERICS 
o  GENERICS  ARE  USED  TO  CREATE 
TEMPLATES  FOR  COMMON  FUNCTIONS 
o  GENERICS  WILL  BE  WIDELY  USED 
IN  Ada 

o  ALREADY,  GENERICS  USED  FOR: 
INTEGER__IO 
FLOAT_IO 
FIXED_I0 
ENUMERATION  lO 


''Iext  page  intentionally 

LEFT  BLANK. 
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TAPE  #13 


ACCESS  TYPES 


iIext  page  intentionally 

LEFT  BLANK. 


ACCESS  TYPES 

rSED  K^HEN  BLOCK  STRUCTURED 
ALLOCATION  OF  OBJECTS  AND 
OBJECT  NAMES  IS  TOO  RESTRICTIVE 


REVIEW  OF  BLOCK  STRUCTURED  OBJECTS; 
o  NAMES  BOUND  TO  OBJECTS 
o  OBJECTS  DESTROYED  WHEN  CONTROL 
LEAVES  DECLARING  UNIT 
o  NTTMBER  OF  OBJECTS  DETERMINED 
WHEN  DECLARATIONS  ARE  ELABORATED 


310 


ACCESS  TYPES 

OBJECTS  OF  ACCESSED 

ACCESS  TYPES  OBJECTS 


SCOPE  OF  ACCESSED  OBJECTS 
SCOPE  IS  THAT  OF 
THE  ACCESS  TYPE 

ACCESSED  OBJECTS 
FORM  A  "COLLECTION" 

OBJECTS  BECOME  INACCESSIBLE 
WHEN  NO  VARIABLES  REFER 
TO  THEM  DIRECTLY 
OR  INDIRECTLY 
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REFERRTNr.  TO  ACOERSED  OBJECTS 
o  P.N’EXT  --POINTER  FIELD  OF 

—RECORD  ACCESSED  BY  P 
o  --COMPLETE  RECORD 

—ACCESSED  BY  P 
o  OrPniXTER  :=P; 

— P  f.  0  POINT  TO  SAME  RECORD 
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procedure  SHOPPING  is 

task  GET_MEAT;  —BY  MOTHER 
task  body  GET_MEAT  Is 

begin  BUY_MEAT;  en£  GET_MEAT 
task  GET_BEER;  —BY  SON 
task  body  GET  BEER  is 

begin  BUY_BEER:  end  GET_BEER 
begin  BUY_GAS;  end  SHOPPING; 


task  T  is  --SPECIFICATION 


end  T; 

task  bodv  T  is  — BODY 


TASKS 

TASKS  ARE  USED  TO  EXPRESS 
INDEPENDENT  ACTIVITIES 
TASKS  CAN  (BUT  MAY  NOT)  RE 
EXECUTED  IN  PARALLEL  WITH 
EACH  OTHER 

THE  RENDEZVOUS  IS  USED  TO 
SYNCHRONIZE  TASKS  AND  TO 
EXCHANGE  DATA  BETWEEN  TASKS 
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TAPE  m 


TASKyJASK  TYPES 


Next  page  intentionally 

LEFT  BLANK. 


SUMMARY  OF  ACCESS  TYPES 
o  ACCESS  TYPES  PROVIDE  VERY  FLEXIBLE 
CAPABILITY  TO  CREATE  AND 
DESTROY  OBJECTS 

o  STRONG  TYPING  IS  ENFORCED.  SINCE 
EACH  ACCESS  TYPE  IS  TIED  TO  A 
SINGLE  COLLECTION  OF  ACCESSED  OBJECTS 
o  CANNOT  BE  DANGLING  POINTERS  SINCE 
INITIALIZED  TO  null  AND 
ASSIGNMENTS  TYPE  CHECK 
(UNLESS  ERRONEOUS 
UNCHECKED  DEALLOCATION) 
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MAILBOX  EXAMPLE  ICON’T) 

££  accept  RECEIVE  (RESPONSE: out 
STRING  (<>))  ^ 
if  LAST-null  then 

RESFONSE:="b"; 
else  RESPONSE  ;=  LAST, TEXT; 

X  ;=  LAST;  LAST  ;=  L/\ST. PRIOR; 
FREE(X);  end  if; 

end  select ;  end  loop;  end  MAILBOX 
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MAILBOX  EXAMPLE  (CONT) 
begin  loop  select 

accept  SEND (MESSAGE: STRING 

(<»)  ^ 

X  FIRST; 

FIRST  :=  NODE’ 
(MESSAGE,  null) ; 

If  LAST  »  null 

then  LAST  FIRST; 
else  X. PRIOR  FIRST 
end  if ; 
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MAILBOX  EXAMPLE  (CONTI 
X,  FIRST,  LAST:  POINTER  : 

—  INITIALLY  null 
procedure  FREE  new 
UNCHECKED_DEALLOCATTON 
INODE, POINTER) ; 


MAILBOX  EXAMPLE  (CON'T) 


type  NODE  (SIZE: INTEGER 
ran^e  1. . 132)  Is 
record 

TEXT  :  STRING  (1..SIZE); 
PRIOR  :  POINTER; 
end  record; 


UNBOUNDED  MAILBOX  EXAMPLE 


task.  MAILBOX  is 

entry  SEND  (MESSAGE:  STRING  «>  ) ) 
entry  RECEIVE  (RESPONSErout 
STRING  (<>)); 
end  MAILBOX; 
task  body  MAILBOX  is 
type  NODE; 

type  POINTER  is  access  NODE; 


INITIALIZING  A  NODE 
;  POINTER:=  new  NODE' 

(21,  null) ; 

ALLOCATOR  new 

TAKES  OUALIFIED  EXPRESSION 
RETURNS  ACCESS  VALUE 
THAT  DESIGNATES  OBJECT 


LIST  PROCESSING  EXAMPLE 


type  NODE; 

type  POINTER  access  NODE; 
type  NODE  Is 
record 

VALUE  :  INTEGER; 

NEXT  :  POINTER; 
end  record 

P  ;  POINTER;  —DEFAULT  VALUE  null 


314 


<  ^ 


1 


TASKS  :  JOBS  TO  BE  DONE 
GET__KEAT 
GET_3EER 
GET_GAS 

PROCESSORS  :  RESOURCES  FOR 
PERFORMING  TASKS 
MOTHER 
CHILDREN 


I  • 
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DECLARATIONS  ARE 
ELABORATED 

DURING  PROGRAM  EXECUTION 
o  INTRODUCE  IDENTIFIERS 
o  ALLOCATE  STORAGE 
o  INITIALIZE  OBJECTS 
OBJECTS  DESTROYED  AT  END 
OF  BLOCK  WHERE  DECLARED 


DECLARATION, 

ACTIVATION, 

TERMINATION 

o  TASKS  ARE  COMPONENTS,  DECLARED 
IN  SUBPROGRAM,  BLOCK, 
PACKAGE,  TASK_BODY 
0  ACTIVATE  WHEN  PARENT  HITS  begin 
0  TERMINATE  AT  FINAL  end 


RENDEZVOUS 

o  ONE  TASK  CALLS  ENTRY  IN  ANOTHER 
task  T  Is 

entry  E  (...); 
end ; 

— etc 

T.E  L..); 
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IMPLEMENTING  ENTRIES 

task  T  is 

entry  E  (...); 
end ; 

task  body  T  is 
entry  E  (...); 
begin; 

accept  E  (...)  do 
— SEQUENCE_OF_STATEMENTS 
end  E; 
end  T ; 
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ENTRY  QUEUES 

task  BUFFER  is 

entry  PUT(X:^  ITEM); 
entry  GET (X tout  ITEM); 
end; 
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task  BUFFER  is 

entrv  PUT  (X:ln  ITEM); 
entry  GET  (X:out  ITEM); 
end ; 

task  body  BUFFER  is 
V: ITEM; 
begin  loop 

accept  PUT  (X:^  ITEM)  ^ 
V:=X;  end  PUT; 
accept  GET  (X:o^  ITEM)  ^ 
X:V;  ei^  GET; 
end  loop; 
end  BUFFER; 
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ENTRY  QUEUES 

PRODUCING  CONSUMING 

TASKS  BUFFER  TASKS 
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ENTRY  QUEUES 

o  FIRST  IN  -  FIRST  OUT  (FIFO) 
o  WITHIN  TASK  BODY,  ATTRIBUTE 
E' COUNT  TELLS  NUMBER  OF 
WAITING  TASKS 
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ASYMMETRIES 

0  CALLER  MUST  NAME  CALLED  TASK 
ENTRIES  ARE  AVAILABLE  TO  ANY  TASK 
o  ENTRY  CAN  HAVE  SEVERAL  QUEUED 
TASKS 

TASK  CAN  ONLY  BE  ON  ONE  QUEUE 
0  TASK  N,\MES  CANNOT  APPEAR  IN 
USE  CLAUSE,  SO  NEED  DOT  NOTATION 
o  SOURCE  TEXT  FOR  A  TASK  CAN 
CONTAIN  MORE  THAN  ONE  ACCEPT 
FOR  AN  ENTRY;  THEY  ALL  DRAW 
FROM  SAME  QUEUE 
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TIMING  AND  SCHEDULING 
IF  TWO  TASKS  WITH  DIFFERENT 
PRIORITIES  ARE  ELIGIBLE  FOR 
EXECUTION  AND  COULD  SENSIBLY 
USE  SAME  RESOURCES.  LOWER 
PRIORITY  TASK  CANNOT  EXECUTE 
WHILE  HIGHER  PRIORITY  TASK 
WAITS 

pragma  PRIORITY  (integer); 
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SCHEDULING 

IMPLEMENTATION  SHOULD  MAKE  AN 
"ARBITRARY"  CHOICE  AMONG  EQUAL 
PRIORITY  TASKS 

IMPLEMENTATION  CAN  CHOOSE  AN 
EFFICIENT  (BUT  FAIR)  MECHANISM 
PROGRAMS  THAT  DEPEND  ON 
SELECTION  ALGORITHM  ARE 
ERRONEOUS 
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PRIORITY 

o  THE  priority  in  A  PRIORITY 
prne:TTia  MUST  BE  A  STATIC 
EXPRESSION  THAT  EVALUATES 
TO  AN  INTEGER 
o  LARGER  INTEGERS  IMPLY 
GREATER  URGENCY 
o  THE  RANGE  OF  SUBTYPE 

PRIORITY  IS  IMPLEMENTATION 
DEFINED 
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PRIORITY 

o  PRIORITY  IS  OPTIONAL 
o  PRIORITY  OF  RENDEZVOUS  IS 
GREATER  OF  TWO  PRIORITIES 
0  IF  NO  EXPLICIT  PRIORITY, 
SCHEDULING  RLT-ES  NOT 
DEFINED 

o  TASK  PRIORITIES 
STATIC  »  CONSTANT 
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TIMED  ENTRY  CALL  EXAMPLE 

se] act 

CONTROLLER .  REQUEST 

(MEDIUM)  (SOME  ITEM); 


1 


rONDTTTONAL  ENTRY  CALL  EXAMPLE 
—  BUSY_WAIT 

procedure  SPIN  (R:  RESOURCE) 
begin  loop  select 

R. SEIZE; 
return; 
else ; 

null ;  — busv  wait 
end  select; 
end  loop; 

end ; 
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USER  SELECTS 

o  CONDITIONAL  ENTRY  CALL 

CANCEL  CALL  IF  RENDEZVOUS 
NOT  IMMEDIATELY  POSSIBLE 
o  TIMED  ENTRY  CALL 

CANCEL  CALL  IF  NO  RENDEZVOUS 
BEFORE  TIMER  RUNS  OUT 
ONLY  ON  ONE  ENTRY  AT  A  TIME! ! 


MECHANICS  OF  SELECl 
o  GUARDS  (WHEN  CONDITION  =>  ) 
EVALUATED  WHEN  SELECT  IS 
EXECUTED 

o  ABSENT  GUARD  IS  TRUE 
o  ORDER  OF  EVALUATION  OF 
GUARDS  IS  UNDEFINED 
o  SELECT  ERROR  IF  ALL  GUARDS 
ARE  FALSE 
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select 


when  COUNT  <  N  => 
accept  PUT  .  .  . 


or 

when  COUNT >  0  => 

accept  GET  (X  :  out  ITEM)  ^ 


X  :=  A(J)j 
end; 

J  :«  J  mod  N+1; 
COUNT  COUNT  -  1; 


end  select 


task  bodv  BUFFER  is 

N  :  constant  :=  8;  — EXAMPLE 
A  :  array  (i..N)  o£  ITEM; 

I,J  ;  INTEGER  range  1..N  :=  1 
COUNT  :  INTEGER  range  0..N  := 
begin  loop 

select 

when  COUNT  <  N  => 
accept  PUT  CX  :  iri  ITEM)  ^ 
A(T)  :=  X; 
end ; 

I  ; =  I  mod  N+1 : 

COUNT  :=  COUNT -t-1; 


or 
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task  body  BUFFER 

N  :  constant  :=  8;  —EXAMPLE 
A  :  array  (1..N)  of  ITEM; 

I.J  :  INTEGER  range  1..N  :=  1; 
COUNT  :  INTEGER  range  Q..N  :=0 
begin  loop 


350 


BUFFER  EXAMPLE 


task  BUFFER  ^ 
entry  PUT  (X  : 
entry  GET  (X  : 


^  ITEM); 
out  ITEM); 


end ; 


1  N 


349 


SERVER  SELECTS 


select 

SELECT_ALTERNATTVE 

SELECT_ALTERNATIVE 
f  else 

SEQUENCE_OF_STATEMENTS 1 
end  select ; 


348 


EXAMPLE  (SELECT  STATEMENT) 

select 

accept  DRIVER_AWAKE_SIGNAL; 

\or 

delay  30.0  *  SECONO:; 
STOP_THE_TRAIN; 
end  select ; 

—SELECTIVE  WAIT  CAN  HAVE  MORE 
—THAN  ONE  DELAY  ALTERNATIVE 
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SELECT  STATEMENT 
o  SELECT  FIRST  OF  SEVERAL 
ENTRIES  TO  BE  CALLED 
0  MAKE  AVAILABILITY  OF  AN 
ENTRY  CONDITIONAL 
0  CONTROL  WAITING  TIMES 
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SYNCHRONOUS  EXECUTION 
declare  use  CALENDAR; 

INTERVAL: constant  DURATION: =1,0; 
NEXT_TIME:  TIME: =FIRST_TIME; 
bei^ln  loop 

delay  NEXT_TIME  -  CLOCK  (); 
ACTION; 

NEXT_TIME : =NEXT_TIME+ INTERVAL ; 
end  loop;  end ; 


I  ‘  • 


I 
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DELAY  STATEMENT 
delay  DURATION; 
type  DURATION 

—  IMPLEMENTATION  DEFINED 
—FIXED  POINT  TYPE 

—  IN  SECONDS 

—AT  LEAST  ONE  DAY  (86_400) 
delay  3.0;  —AT  LEAST  3  SECONDS 
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■  SYNCHRONIZATION 

o  USE  .  ciNUeZVOUS  FOR 

i  >  SYNCHRONIZATION 

o  USE  PRIORITIES  TO  INDICATE 

;  RELATIVE  URGENCY  AND  FINE 

TUNE  RESPONSIVENESS 


fl 
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I 


1 


TIMED  ENTRY  CALL 
T IMED_ENTRY_CALL : : = 
select 

ENTRY_CALL_STATEMENT 
r  SEOUENCE_OF_STATEMENTS 1 
or 

DELAY_ALTERNATIVE 
end  select ; 


M  ( • 
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SUMMARY  OF  TASKING 
TASKS  VS  PROCESSORS 
TASK  DECLARATIONS 
TASKS  INITIATION 

(DECLARATION  ELABORATIONS 
TASK  TERMINATION 
RENDEZVOUS  SYNCHRONIZATION 


TASK  TYPES 


TASK  TYPES 

ARE  USED  TO  CREATE  SEVERAL 

SIMILAR  BUT  DIFFERENT  TASKS 

TASK  OBJECTS  BEHAVE  AS 

CONSTANTS  (BUT  NOT  DECLARED  AS  CONSTANT 

SINCE  NO  INITIAL  VALUE  EXPRESSION) 

TASK  TYPES  ARE  LIMITED  PRIVATE 
(NO  ASSIGNMENT, 

NO  EQUALITY  COMPARE) 


SIMPLE  TASK  DECLARATIONS 
£ask  SIMPLE  J_s  task  type  ANON  is 

end  SIMPLE;  end  ANON; 

SIMPLE: ANON; 


USING  TASK  OBJECTS  IN  STRUCTURES 
AT  :  array (1.  .10)  of  T;— AT(1)  .E(. . .  )  ; 
type  REC  Is  — R.CT.E(...); 

record 
CT  :  T; 

end  record; 

R  :  REC; 
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TASKS  VIA  ACCESS  TYPES 


type  REF_T  access  T; 

RX:REF_T  :=  new  T; 
o  REF_T  IS  NORMAL  ACCESS  TYPE, 

SO  CAN  DO  ASSIGNMENT  AND  COMPARE 
TWO  OBJECTS  FOR  EOUALITY 
o  TO  CALL  ENTRY  E 
RX.E 
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BINDING  TIME  OF 
NUMBER  OF  TASKS 

1)  SIMPLE  TASK  DECLARATIONS 
NO  RECURSION 

a>  COMPILE  /  LINK  TIME 

2)  NO  ACCESS  OBJECTS  TO 
OBJECTS  OF  TASK  TYPE 

*>ELABORATION  TIME 

3)  ACCESS  OBJECTS  USED 

*>DYNAMIC  DURING 
EXECUTION 
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TASK  TERMINATION 


1)  EXECUTE  FINAL  END  => 
TERMINATE  WHEN  ALL  DEPENDENT 
TASKS  ARE  TERMINATED 

2)  TERMINATE  ALTERNATIVE  IN  A 
SELECT  STATEMENT 


TERMINATE  ALTERNATIVE 


select 

when  GUARD_FALSE  ->  . . . 
when  GUARDJTRUE  => 
terminate; 

—ACCEPT  PREFERRED 
—NO  else  OR  delav  CHOICE 
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TERMINATE  ALTERNATIVE  (CON'T! 

1.  ALL  ENTRY  QUEUES  EMPTY 

2.  MASTER  IS  COMPLETED 

3.  DEPENDENT  TASKS  AND  SIBLING  TASKS 

are: 

A)  COMPLETE  OR 

B)  AT  TERMINATE  ALTERNATIVE 
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EXCEPTIONS  AND  ABORT 
abort  TASK_NAME_LIST; 
o  EACH  NAMED  TASK  AND  EACH  TASK 
THAT  DEPENDS  ON  THEM  "BECOMES 
ABNORMAL" 

o  ABNORMAL  TASKS  MUST  TERMINATE 
PRIOR  TO  NEXT  SYNCHRONIZATION 
POINT 
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ABMORMAL  TASKS 

CALLER  RECEIVES  "TASKING_ERROR" 

IF: 

1.  CALLED  TASK  IS  ABNORI'AL 

2.  BECOMES  ABNORIIAL  DURING  RENDEZVOU 

3.  BECOMES  ABNORMjVL  WHILE  ENQUEUED 
o  SERVER  TASKS  ARE  PROTECTED  FROM 

CALLER  BECOMING  ABNORMAL 
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SYNCHRONIZATION  POINTS 
o  END  OF  ACTIVATION 
o  ACTIVATE  ANOTHER  TASK 
o  ENTRY  CALL 
o  START  &  END  OF  ACCEPT 
o  SELECT  STATEMENT 
o  DELAY  STATEMENT 
o  EXCEPTION  HANDLER 
o  ABORT  STATEMENT 
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SHARED  VARIABLES 
RULES  TO  FOLLOW 
IF  TWO  (OR  MORE)  TASKS  READ 
OR  UPDATE  A  SHARED  VARIABLE 
—  (VARIABLE  ACCESSIBLE  BY  BOTH) 
BETWEEN  SYNCHRONIZATION  POINTS 
1)  MULTIPLE  READERS 
OR 


2)  ONE  WRITER 


» 


i 


SYNCHRONIZATION  POINTS 

1)  START  OF  RENDEZVOUS  1  WITH 

2)  END  OF  RENDEZVOUS  J  PARTNER 

3)  AT  ACTIVATION,  WITH  PARENT 
4^  AFTER  COMPLETION,  WITH  ALL 
5)  pragma  SHARED  (VARIABLE) 

—ONLY  SCALERS  AND  ACCESS 
*  —ONLY  IF  R/W  INDIVISIBLE 

—EVERY  R/W  IS  SYNCHRONIZED 

(m 


V 


WHY  PRAGMA  SHARED  ? 


!• 


REQUEST 


READ  A  STATUS  VARIABLE 
--EG  DATABASE  SIZE 
"WITHOUT  RENDEZVOUS 
OVERHEAD 


373 


SUMMARY  OF  TASK  TYPES 
o  TASKS  ARE  ONE  OF  THE  FOUR  FORMS  OF 
PROGRAM  UNIT 

o  TASKS  ARE  A  TYPE;  (SUBPROGRAMS, 
PACKAGES,  GENERICS  ARE  NOT) 
o  TASKS  SUGGEST  PARALLEL  EXECUTION 
BY  LOGICAL  PROCESSORS 
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LABORATORY  //!) 


LABORATORY  #5 


OBJECTIVES: 

1.  WRITE,  COMPILE,  AND  EXECUTE 
A  MULTITASK  PROGRAM 

2.  SHOW  THAT  Ada  PROGRAMS 
ARE  EASY  TO  MODIFY 
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ASSIGNMENT 


TRANSFORM  EACH  PROCEDURE 
OR  FUNCTION  IN  YOUR  HAND 
CALCULATOR  PROGRAM  INTO  A 
SEPARATE  TASK  ACCESSED  VIA 
AN  ENTRY  CALL 


r.EXT  PAGE  INTENTIONALLY 
LEFT  BLANK. 


TAPE  #15 

MACHINE  DEPENDENT  PROG RAMS /SUMMARY 
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IMPLEMENTATION  DEPENDENT  FEATURES 
o  REPRESENTATION  CLAUSES 
o  PRAGMAS 
o  LENGTH  CLAUSES 
o  ADDRESS  CLAUSES 
o  INTERRUPTS 

o  INTERFACE  TO  OTHER  LANGUAGES 
o  UNCHECKED  STORAGE  DEALLOCATION 
o  UNCHECKED  TYPE  CONVERSIONS 
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PRAGMAS 

A  pragma  CONVEYS  ADVICE 
TO  THE  COMPILER 
pragma  PACK  (TEXT) ; 
pragma  INLINE  (PROCEDURE_NAME) ; 
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MEMORY  MANAGEMENT 


STATIC 

BLOCK  ENTRY 
DYNAMIC  ALLOCATOR 
(new) 


-  COMPILE/LOAD 
TIME 

-  STACK 

-  COLLECTION 
IN  A  HEAP 
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BLOCK  ALLOCATION 


FRAME_POTNTER  :=  TOP_OF_STACK; 
T0P_0F_STACK  :=  TOP_OF_STACK  + 
LENGTH  (NEW_FRAME); 
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MACHINE  CODE  INSERTS 
EACH  MACHINE  INSTRUCTION  IS 
A  RECORD  AGGREGATE  OF  A  TYPE 
THAT  DEFINES  THE  INSTRUCTION 
M  :  MASK; 

procedure  SET-MASK; 
pragma  INLINE  (SET_MASK); 

SI_FORMAT' (CODE  =>  SSM, 

B  =>  M'BASE  REG, 

D  M'DTSP)  ; 

—  IMPLEMENTATION  SPECIFIC  ATTRIBUTES 
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FORTRAN  INTERFACE 
package  FORT_LIB  is 

function  SQRT  (X; FLOAT) 
return  FLOAT; 
function  EXP  (X: FLOAT) 
return  FLOAT ; 
private 

pragma  INTERFACE 
(FORTRAN.  SORT); 
pragma  INTERFACE 
(FORTRAN.  EXP); 
end  FORT  LIB; 
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package  SYSTEM 

type  ADDRESS  .  .  .  —MEMORY 
type  NAME  .  .  .  — ENUMERATION 
SYSTEM_NAME  :  constant  . 

STORAGE_UNIT  :  constant  :=  .  .  . 
MEMORY_SIZE  :  constant  :=  .  .  . 
—REPRESENTATION  ATTRIBUTES 
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INTERRUPTS  (CONT) 
o  ABOVE  SEMANTICS  CAN  BE 

IMPLEMENTED  BY  HAVING  HARDWARE 
EXECUTE  THE  APPROPRIATE  ACCEPT 
STATEMENT 

o  QUEUED  INTERRUPTS  MAP  TO 
ORDINARY  ENTRY  CALLS 
o  INTERRUPTS  THAT  ARE  LOST  IF  NOT 
PROCESSED  CORRESPOND  TO 
CONDITIONAL  ENTRY  CALLS 
o  INTERRUPTS  HAVE  HIGHER  PRIORITY 
THAN  MAIN  PROGRAM  OR  ANY  USER 
TASK 
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INTERRUPTS 

o  INTERRUPTS  ACT  AS  ENTRY  CALLS 
ISSUED  BY  HARDWARE  TASKS 
task  INTERRUPTJiANDLER 
entry  DONE; 

for  DONE  use  at  16#40#; 
end  INTERRUPT  HANDLER; 


RECORD  REPRESENTATION  (CONT> 
for  PROGRAM_STATUS_WORD  use 
record  at  mod  8; 

SYSTEM  MASK  at  0*W0RD  range  0 . . 7 ; 

PROTECTION  KEY  at  0*W0RD  range  10.. 11 

—  BITS  8.9  UNUSED 

MACHINE  STATE  at  0*W0RD  range  12.. 15 

INTERRUPT_CLAUSE  £t  0*W0RD  range  16,. 31 
end  record; 

for  PROGRAM_STATDS_WORD’SIZE 
use  4*SYSTEM. STORAGE  UNIT 
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RECORD  REPRESENTATION  fCONT) 
type  PROGRAM_STATUS_WORD 
record 

SYSTEM_MASK  :  BYTE_MASK; 

PROTECT ION_KEY  :  INTEGER  range  0 . . 3 

MACHINE_STATE  :  STATE_MASK; 

INTERRUPT  CLAUSE  :  INTERRUPTION  CODE; 


RECORD  REPRESENTATION  CLAUSE 
WORD  :  constant  :*  4; 
type  STATE  (A,  M,  W,  P); 
type  MODE 

(FIX,  DEC,  EXP.  SIGNIF); 
type  BYTE__MASK  Is 

array  ( 0 . . 7 )  of  BOOLEAN : 
type  STATE_MASK 

array  (STATE)  of  BOOLEAN; 
type  MODE__MASK 

array  (MODE)  of  BOOLEAN; 


ENUMERATION  REPRESENTATION  CLAUSE 


type  MIX_CODE 

(ADD.  SUB,  MUL,  LOA,  STA,  STZ); 
for  MIXjCODE  use 

(ADD  =>1,  SUB  =>2,  MUL  =>  3, 

LOA  =>  8,  STA  =>  24,  STZ  =>  33); 
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REPRESENTATION  SPECS 
USED  TO  CONTROL  THE  BIT 
PATTERNS  WHICH  REPRESENT 
ENUMERATION  TYPES 
AND 

RECORDS 

AND  THE  AMOUNT  OF  STORAGE 
ASSOCIATED  WITH  A  TYPE 
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SIZE  OF  OBJECTS 
IN  A  COLLECTION 
ALL  OBJECTS  MUST  BE  OF 
SAME  BASE  TYPE 
VARIABLE  LENGTH  RECORDS  CAN 
OCCUR  WITH  UNCONSTRAINED 
DISCRIMINANTS 

VARIABLE  LENGTH  ARRAYS  OCCUR 
WHEN  BASE  TYPE  IS  UNCONSTRAINED 


CONTROLLING  MEMORY  ALLOCATION 
for  TASK_TYPE_NAME’STORAGE_SIZE 
use  INTEGER_EXPRESSION; 

—STORAGE  UNITS  PER  ACTIVATION 
for  ACCESS_TYPE_NAME'STORAGE_SIZE 
use  INTEGER_EXPRESSION; 

—STORAGE  UNITS  FOR  COLLECTION' 


TASK 


TASKJ  0 
OBJECTS 


TASK  TYPES 
TASK 

ACTIVIATION  STACKS 
RECORDS 


HEAP  ALLOCA 


ACCESS 

OBJECTS 


UNCHECKED  DEALLOCATION 


generic 

type  OBJECT  ^  limited  private 
type  NAME  access  OBJECT; 
procedure  UNCHECKED_DEALLOCATION 
(X  :  ^  out  NAME) ; 
procedure  FREE  ^  new 
UNCHECKEDJ)  EALLOCATION 
(OBJ  TYPE, ACCESS  TYPE); 
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UNCHECKED  TYPE  CONVERSION 
generic 

type  SOURCE  limited  private 

type  TARGET  limited  private 

function  UNCHECKED_CONVERSION 
(S  :  SOURCE)  return  TARGET; 

function  UNSPEC  is_  new 
UNCHECKED_CONVERS ION 
(SAC  TYPE,  RESULT  TYPE); 
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SUMMARY 


SOME  Ada  IMPLEMENTATIONS  WILL 
ALLOW  YOU  TO: 

o  AFFECT  MEMORY  MANAGEMENT 
o  CONTROL  THE  REPRESENTATION 
OF  TYPES 

o  WRITE  INTERRUPT  HANDLERS 
o  WRITE  EMBEDDED  MACHINE  CODE 
o  LINK  TO  OTHER  LANGUAGES 
SYSTEM  ATTRIBUTES  ARE  USED  FOR 
IMPLEMENTATION  DEPENDENT 
ALGORITHMS 
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CONFORMING  TO  THE  Ada  STANDARD 

(a)  TRANSLATE  &  CORRECTLY  EXECUTE 
LEGAL  UNITS,  PROVIDED  DON'T 
EXCEED  CAPACITY 

(b)  REJECT  UNITS  IF  EXCEED 
CAPACITY 

(c)  REJECT  ALL  ERRORS  AS  REQUIRED 

(d)  SUPPLY  ALL  REQUIRED  PREDEFINED 
UNITS 

(e)  NO  VARIATIONS,  EXCEPT  AS 
PERMITTED 

(f)  SPECIFY  PERMITTED  VARIATIONS 
PROPERLY 


CLASSIFICATION  OF  ERRORS 

(a)  ERRORS  THAT  MUST  BE  DETECTED 

AT  COMPILATION  BY  ALL  COMPILERS 

(b)  ERRORS  THAT  MUST  BE  DETECTED 
AT  RUN-TIME  BY  ALL 
IMPLEMENTATIONS.  THESE  ARE 
THE  PREDEFINED  EXCEPTIONS. 

(c)  ERRONEOUS  EXECUTION  -  RULES 
THAT  MUST  BE  OBEYED  BUT 
THAT  IMPLEMENTATIONS  NEED 
NOT  CHECK 

(d)  INCORRECT  ORDER  DEPENDENCIES 
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RUN-TIME  PROCESSES 
o  EXECUTION  :  PROCESS  A  SEQUENCE 
OF  STATEMENTS 

o  EVALUATION  :  COMPUTE  VALUE  OF 
EXPRESSION 

o  ELABORATION  :  ACHIEVE  EFFECT  OF 


DECLARATIONS,  SUCH 
AS  CREATING  OBJECTS 


ORDER  OF  EXECUTION 


DEFINED 

o  IN  ABSENCE  OF  FLOW  OF  CONTROL 
COMMAND,  STATEMENTS  IN  TEXTUAL 
ORDER 

o  DECLARATIONS  ELABORATED  IN 
TEXTUAL  ORDER 

o  EVALUATION  OF  SHORT-CIRCUIT 
CONTROL 
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ORDER  OF  EXECUTION  (CONT) 
UNDEFINED 

o  OPERANDS  OF  AN  EXPRESSION 
EVALUATED  IN  SOME  (UNDEFINED) 
ORDER 

0  ORDER  OF  PARAMETER  ASSOCIATIONS 
o  ORDER  IN  WHICH  In  out  AND 
out  PARAMETERS  COPIED  BACK 
o  ORDER  OF  TASKS  OF  EQUAL 
PRIORITY 
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;IAL  BUSINESS 

private  use  $300 


BUSINESS  REPLY  MAIL 
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QUESTIONNAIRE 


1.  Briefly  state  your  current  computer  background. 


2.  Brief  comment  on  course  format. 


3.  How  many  tapes  did  you  watch  at  a  time? 


4.  What  tapes  needed  to  be  replayed  for  content.  Please  amplify  reasons  to 
replay. 


5.  Overall  evaluation  of  the  course. 


6.  Do  you  recommend  future  courses  of  this  format? 


7.  What  topics  do  you  recommend? 


8.  Should  any  tapes  be  redone  -  which  ones,  and  why.  (Please  provide  con¬ 
structive  suggestions.) 


9.  How  effective  were  the  lecture  notes? 


10.  What  improvement  can  you  recommend  for  lecture  notes. 


(If  you  H&sire)  _ 

Name 
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